home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / rbbsbas.zip / RBBS-PC.BAS < prev    next >
BASIC Source File  |  1988-10-03  |  139KB  |  4,290 lines
  1. 3 ' $linesize: 132
  2. 4 ' $title: 'RBBS CPC17-1A, Copyright 1988 by D. Thomas Mack'
  3. 5 ' WARNING !!! DO NOT CHANGE, BYPASS OR REMOVE LINES 3-29
  4. 9 'by D. Thomas Mack, 39 Cranbury Drive, Trumbull, CT 06611
  5. 10 '  Jon J. Martin, 4396 N. Prairie Willow Ct., Concord, CA 94521
  6. 11 '  Ken Goosens, 5020 Portsmouth Road, Fairfax, VA 22032
  7. 13 '
  8. 14 ' *******************************NOTICE*************************************
  9. 15 ' *  A limited license is granted to all users of this program and it's    *
  10. 16 ' *  companion program, CONFIG (version 17-1A), to make copies of this     *
  11. 17 ' *  program and distribute the copies to other users, on the following    *
  12. 18 ' *  conditions:                                                           *
  13. 19 ' *    1.   The notices contained in lines 3 through 29 of the program     *
  14. 20 ' *         are not altered, bypassed, or removed.                         *
  15. 21 ' *    2.   The program is not to be distributed to others in modified     *
  16. 22 ' *         form (i.e. the line numbers must remain the same).             *
  17. 23 ' *    3.   No fee is to be charged (or any other consideration received)  *
  18. 24 ' *         for copying or distributing these programs without an express  *
  19. 25 ' *         written agreement with D. Thomas Mack, The Second Ring, 39     *
  20. 26 ' *         Cranbury Drive, Trumbull, Conneticut 06611                     *
  21. 27 ' *                                                                        *
  22. 28 ' *       Copyright (c) 1983-1988 D. Thomas Mack, The Second Ring          *
  23. 29 ' **************************************************************************
  24.    '
  25.    ' $INCLUDE: 'RBBS-VAR.BAS'
  26.    '
  27.    ' $SUBTITLE: 'Main-line RBBS-PC Program'
  28.     CRLF$ = CHR$(13) + CHR$(10)
  29.     J = 60
  30.     REDIM OPT.SEC(J)
  31.     CONFIG.FILENAME$ = "RBBS-PC.DEF"
  32.     CALL GETCOMND (DEBUG,NETIME$,NETBAUD$,NETRELIABLE$)
  33.     SUBROUTINE.PARAMETER = -62
  34.     BULLETIN.MENU$ = ""
  35.     CALL READDEF (CONFIG.FILENAME$)
  36.     IF EC > 0 THEN _
  37.        GOTO 31
  38.     CALL GIVEINIT
  39.     CALL MLINIT (1)
  40.     IF RECYCLE.TO.DOS OR DEBUG THEN _
  41.        GOTO 100
  42.     SUBROUTINE.PARAMETER = -9
  43.     CALL CARRIER
  44.     IF SUBROUTINE.PARAMETER THEN _
  45.        CALL COPYWRIT
  46.     GOTO 100
  47. 31  SNOOP = -1
  48.     CALL PSCRN ("Configuration "+CONFIG.FILENAME$+" missing or improper format.") : _
  49.     GOTO 204
  50. 100 CLEAR,,SIZE.OF.STACK
  51.     DEF SEG                            ' Point to BASIC
  52.     WIDTH 80                           ' Set Screen Width
  53.     SCREEN 0,0,0                       ' Text, No color, Pg 0
  54.     KEY OFF                            ' Line 25 turned off
  55.     DEFINT A-Z                         ' All var. integer
  56. ' ********************* Variable Definitions ********************************
  57. 102 ADIM = 99
  58.     MM = 999
  59.     BX = 75
  60.     J = 60
  61.     REDIM OPT.SEC(J)
  62.     REDIM CATEGORY.NAME$(BX),CATEGORY.CODE$(BX),CATEGORY.DESC$(BX)
  63.     REDIM A$(ADIM)                      ' Message line table
  64.     REDIM B$(ADIM)                      ' Message line table
  65.     REDIM M(MM,2)                       ' Message pointers
  66.     CALL VARINIT
  67. 105 VERSION.ID$ = "CPC17-1A"
  68. 106 CALL GETCOMND (DEBUG,NETIME$,NETBAUD$,NETRELIABLE$)
  69.     SUBROUTINE.PARAMETER = 1
  70.     CALL READDEF (CONFIG.FILENAME$)
  71.     IF EC > 0 THEN _
  72.        GOTO 31
  73.     USE.TPUT = (UPPER.CASE OR XON.XOFF)
  74.     ORIG.CALLERS$ = CALLERS.FILE$
  75.     ORIG.MESSAGE.FILE$ = MAIN.MESSAGE.FILE$
  76.     ORIG.USER.FILE$ = MAIN.USER.FILE$
  77.     CALL BRKFNAME (ORIG.MESSAGE.FILE$,DRV$,ORIG.MSG.NAME$,Y$,FALSE)
  78.     IF ORIG.MSG.NAME$ = "MESSAGES" THEN _
  79.        ORIG.MSG.NAME$ = "MAIN" _
  80.     ELSE IF RIGHT$(ORIG.MSG.NAME$,1) = "M" THEN _
  81.             ORIG.MSG.NAME$ = LEFT$(ORIG.MSG.NAME$,LEN(ORIG.MSG.NAME$)-1)
  82.     GRN.NAME$ = ORIG.MSG.NAME$
  83.     MAX.MESSAGE.LINES = MAX.MESSAGE.LINES.DEF
  84.     IF NET.MAIL$ <> "NONE" AND VAL(NETIME$) > 0 THEN _
  85.        LIMIT.MINUTES.PER.SESSION! = VAL(NETIME$)
  86.     IF NET.MAIL$ <> "NONE" AND VAL(NETBAUD$) > 0 THEN _
  87.        EXPECT.ACTIVE.MODEM = TRUE : _
  88.        IF NOT KEEP.INIT.BAUD THEN _
  89.           MODEM.INIT.BAUD$ = NETBAUD$
  90.     IF FOSSIL THEN _
  91.        COMPORT% = VAL(RIGHT$(COM.PORT$,1)) - 1 : _
  92.        IF COMPORT% < 0 THEN _
  93.           GOTO 108 _
  94.        ELSE CALL FOSINIT(COMPORT%,RESULT%) : _
  95.             IF RESULT% = -1 THEN _
  96.                SNOOP = TRUE : _
  97.                CALL PSCRN("ERROR INITIALIZING FOSSIL") : _
  98.                GOTO 204
  99. 108 CALL BRKFNAME (CALLERS.FILE$,DRV$,X$,Y$,TRUE)
  100.     ARC.WORK$ = DRV$ + _
  101.                 "ARCWORK" + _
  102.                 NODE.FILE.ID$ + _
  103.                 ".DEF"
  104.     IF USE.BASIC.WRITES THEN _
  105.        LOCAL.BACKSPACE$ = BACK.ARROW$ _
  106.     ELSE LOCAL.BACKSPACE$ = BACKSPACE$
  107.     SYSOP.FULL.NAME$ = LEFT$(SYSOP.FIRST.NAME$ + " " + SYSOP.LAST.NAME$,22)
  108. '
  109. ' *****  INITIALIZE NETBIOS INTERFACE   *****
  110. '
  111.    IF NETWORK.TYPE = 6 AND NOT SUB.BOARD THEN _
  112.       CALL INITIBM
  113. '
  114. ' *****  ESTABLISH NEXT CALLERS FILE RECORD AVAILABLE   ****
  115. '
  116.     CALL SETCALL
  117. 112 IF NOT SUB.BOARD THEN _
  118.        LOCAL.USER = TRUE : _
  119.        A$ = COLOR.RESET$ : _
  120.        SUBROUTINE.PARAMETER = 1 : _
  121.        CALL TPUT : _
  122.        LOCAL.USER = FALSE
  123.     UPLOAD.DRIVE.FILE$ = RIGHT$(DOWNLOAD.DRIVES$,1)+":FREESPAC.UPL"
  124. '
  125. ' *****  TEST FOR MESSAGE FILE PRESENT (ABORT IF NOT PRESENT)  *****
  126. '
  127. 135 IF CURRENT.DEF$ = ORIG.CONFIG$ THEN _
  128.        ACTIVE.MESSAGE.FILE$ = MAIN.MESSAGE.FILE$ : _
  129.        ACTIVE.USER.FILE$ = MAIN.USER.FILE$
  130.     GOSUB 4910
  131.     IF CONFERENCE.MODE THEN _
  132.        GOTO 150
  133.     LOCAL.USER.MODE = (RIGHT$(COM.PORT$,1) < "1")
  134.     GET 1,NODE.RECORD.INDEX
  135.     Y$ = MID$(MESSAGE.RECORD$,77,2)
  136.     CALL UNCDATE (Y$,X,L,I,OLD.DAT$)
  137.     OLD.DAT$ = LEFT$(OLD.DAT$,6) + MID$(STR$(X),2)
  138.     TIME.TO.DROP.TO.DOS = - (TIME.TO.DROP.TO.DOS > 0) * TIME.TO.DROP.TO.DOS
  139.     HR! = INT(TIME.TO.DROP.TO.DOS / 100)
  140.     MN! = TIME.TO.DROP.TO.DOS - HR! * 100
  141.     TIME.TO.DROP.TO.DOS! = HR! * 3600 + MN! * 60
  142. '
  143. ' ******  TEST FOR TIMED EXIT ACTIVE   *****                                            *
  144. '
  145. 140 CALL FINDTIME (TI!)
  146.     IF TIME.TO.DROP.TO.DOS > 0 AND _
  147.        OLD.DAT$ <> DATE$ AND _
  148.        TI! >= TIME.TO.DROP.TO.DOS! THEN _
  149.        GOTO 206
  150. '
  151. ' **** GET CURRENT STATUS OF SYSOP AVAIL, SYSOP ANNOY, SYSOP NEXT, & PRINTER *
  152. '
  153. 150 IF SUB.BOARD THEN _
  154.        GOSUB 12987 : _
  155.        GOSUB 5135 : _
  156.        GOTO 170
  157.     SYSOP.AVAILABLE = VAL(MID$(MESSAGE.RECORD$,32,2))
  158.     SYSOP.ANNOY = VAL(MID$(MESSAGE.RECORD$,34,2))
  159.     SYSOP.NEXT = VAL(MID$(MESSAGE.RECORD$,36,2))
  160.     MID$(MESSAGE.RECORD$,36,2) = STR$(FALSE)
  161.     PRINTER = VAL(MID$(MESSAGE.RECORD$,38,2))
  162.     IF TURN.PRINTER.OFF THEN _
  163.        PRINTER = FALSE
  164.     EXIT.TO.DOORS = (VAL(MID$(MESSAGE.RECORD$,40,2)) AND NETBAUD$ = "")
  165.     EIGHT.BIT = VAL(MID$(MESSAGE.RECORD$,42,2))
  166.     BPS = VAL(MID$(MESSAGE.RECORD$,44,2))
  167.     SNOOP = VAL(MID$(MESSAGE.RECORD$,58,2))
  168.     MID$(MESSAGE.RECORD$,57,1) = "I"
  169.     PRIVATE.DOOR = VAL(MID$(MESSAGE.RECORD$,72,2))
  170.     MID$(MESSAGE.RECORD$,72,2) = STR$(FALSE)
  171.     LOCAL.USER = VAL(MID$(MESSAGE.RECORD$,101,2))
  172.     IF EXIT.TO.DOORS OR PRIVATE.DOOR THEN _
  173.        TURBO.LOGON = TRUE
  174.     PUT 1,NODE.RECORD.INDEX
  175.     GOSUB 12985
  176. '
  177. ' *****  TEST FOR MULTI LINK PRESENT IF NOT COMPAQ COMPUTER   *****
  178. '
  179. 160 CALL MLINIT (4)
  180. 170 FOR FUNCTION.KEY.INDEX = 1 TO 10
  181.        KEY FUNCTION.KEY.INDEX,""
  182.     NEXT
  183.     CALL LOADNEW (M())
  184. '
  185. ' ******  INITIALIZE FILE MANAGEMENT SYSTEM, CHECK FOR LOCAL BBS MODE *
  186. '
  187. 175 GOSUB 5344
  188.     CALL CTLINES (MAX.ENTRIES)
  189.     REDIM CATEGORY.NAME$(MAX.ENTRIES),CATEGORY.CODE$(MAX.ENTRIES),_
  190.           CATEGORY.DESC$(MAX.ENTRIES) : _
  191.     CALL INITFMS (CATEGORY.NAME$(),CATEGORY.CODE$(), _
  192.                   CATEGORY.DESC$(),NUM.CATEGORIES)
  193.     LOCAL.USER.MODE = (RIGHT$(COM.PORT$,1) < "1")
  194.     IF NOT LOCAL.USER THEN _
  195.        LOCAL.USER = LOCAL.USER.MODE
  196.     REMOTE.ECHO = (DEFAULT.ECHOER$ = "R" AND NOT LOCAL.USER.MODE)
  197.     CALL BRKFNAME (CALLERS.FILE$,DRV$,X$,Y$,TRUE)
  198.     NODE.WORK.FILE$ = DRV$ + _
  199.                       "NODE" + _
  200.                       NODE.FILE.ID$ + _
  201.                       "WRK"
  202.     SECONDS.PER.SESSION! = MINUTES.PER.SESSION! * 60
  203.     IF NOT LOCAL.USER.MODE THEN _
  204.        IF NOT EXIT.TO.DOORS THEN _
  205.           GOTO 180 _
  206.        ELSE IF NOT LOCAL.USER THEN _
  207.                GOTO 180
  208.     LOCAL.USER = TRUE
  209.     BPS = -6
  210.     BAUD.TEST = 9600
  211.     EIGHT.BIT = TRUE
  212.     SNOOP = TRUE
  213.     RECYCLE.TO.DOS = TRUE
  214.     IF EXIT.TO.DOORS THEN _
  215.        CALL AMORPM : _
  216.        CALL READPROF : _
  217.        GOTO 410
  218.     GOSUB 178
  219.     GOTO 345
  220. 178 IF SUB.BOARD THEN _
  221.        IF FIRST.NAME$ = SYSOP.FIRST.NAME$ AND _
  222.           LAST.NAME$ = SYSOP.LAST.NAME$ THEN _
  223.              RETURN 832 _
  224.        ELSE RETURN 800
  225.     RETURN
  226. 180 SUBROUTINE.PARAMETER = 2
  227.     CALL LINE25
  228.     GOSUB 178
  229. '
  230. ' ******  WAIT FOR THE PHONE TO RING AND ANSWER IT   *****
  231. '
  232.     SUBROUTINE.PARAMETER = 1
  233. 200 TOGGLE.ONLY = TRUE
  234.     CALL ANSWERIT
  235.     GET 1,NODE.RECORD.INDEX
  236.     SNOOP = VAL(MID$(MESSAGE.RECORD$,58,2))
  237.     TOGGLE.ONLY = FALSE
  238.     IF EC > 1 THEN _
  239.        GOTO 13000
  240.     IF SUBROUTINE.PARAMETER < 0 THEN _
  241.        GOTO 202
  242.     ON SUBROUTINE.PARAMETER GOTO 410, _   '  1 = ANSWERED PHONE & CARRIER FOUND
  243.                                  330, _   '  2 = CARRIER FOUND BEFORE ANSWERING
  244.                                  822, _   '  3 = SYSOP GETS SYSTEM NEXT
  245.                                10595, _   '  4 = ANSWERED PHONE BUT NO CARRIER
  246.                                13540, _   '  5 = NOT USED
  247.                                  202, _   '  6 = LOCAL SYSOP KEY PRESSED
  248.                                  206, _   '  7 = TIME TO DROP TO DOS
  249.                                13538      '  8 = NO CALLS! TIME TO RECYCLE
  250. 202 FF = -SUBROUTINE.PARAMETER
  251.     ON FF GOTO 10595, _   '  -1 = CARRIER DROPPED
  252.                 4770, _   '  -2 = SYSOP INITIATED CHAT
  253.                  205, _   '  -3 = FORCE SYSTEM TO ANSWER THE PHONE
  254.                  204, _   '  -4 = EXIT TO DOS IMMEDEATELY
  255.                  203, _   '  -5 = EXIT TO DOS AFTER CLEAN-UP
  256.                10698, _   '  -6 = INDICATE ACCESS IS DENIED AND LOGOFF USER
  257.                10620      '  -7 = UPDATE CALLERS FILE AND LOGOFF USER
  258. 203 CALL MLINIT(3)
  259. 204 IF FOSSIL THEN _
  260.        CALL FOSEXIT(COMPORT%)
  261.     SYSTEM
  262. 205 SUBROUTINE.PARAMETER = 4
  263.     GOTO 200
  264. 206 CALL TIMEDOUT
  265.     GOTO 203
  266. 330 CALL CARRIER
  267.     IF SUBROUTINE.PARAMETER = -1 THEN _
  268.        GOTO 10595
  269.     CALL EOFCOMM (CHAR%)
  270.     IF CHAR% = -1 THEN _
  271.        GOTO 335
  272.     CALL FLUSHCOM (DF$)
  273.     IF SUBROUTINE.PARAMETER = -1 THEN _
  274.         GOTO 10595
  275.     GOTO 330
  276. 335 EXIT.TO.DOORS = FALSE
  277.     PRIVATE.DOOR = FALSE
  278.     IF C.L <> 1 THEN _
  279.        LOCATE 22,34
  280.     D$ ="CONNECT" + _
  281.         STR$(BAUD.TEST) + _
  282.         "     "
  283.     GOSUB 1315
  284. '
  285. ' *****  DISPLAY WELCOME LINE  *****
  286. '
  287. 345 LOCATE 24,1
  288.     SUBROUTINE.PARAMETER = 1
  289.     CALL AMORPM
  290.     CALL FINDTIME (USER.LOGON.TIME!)
  291.     TIME.LOGGED.ON$ = TIME$
  292.     LINES.PRINTED = 0
  293.     EXPERT.USER.DEF = EXPERT.USER
  294.     EXPERT.USER = FALSE
  295.     CALL SETEXPERT
  296.     IF NODES.IN.SYSTEM > 1 THEN _
  297.        A$ = " - NODE " + NODE.ID$ _
  298.     ELSE A$ = ""
  299.     CALL QTPUT("WELCOME TO " + RBBS.NAME$ + A$,1)
  300.     TEST.PARITY = TRUE
  301.     STOP.INTERRUPTS = TRUE
  302.     FILE.NAME$ = PRELOG$
  303.     CALL FLUSHCOM (X$)
  304.     COMMPORT.STACK$ = ""
  305. 346 GOSUB 466
  306.     FF = FALSE
  307. '
  308. ' *****  GET USER NAME                                                      *
  309. ' *****  C - COMMAND FROM NEWUSER REGISTER OPTIONS (CHANGE NAME OR ADDRESS) *
  310. '
  311. 400 CALL SKIPLINE(1)
  312.     ESCAPE.INSECURE = FALSE
  313.     UPPER.CASE = FALSE
  314.     EXPERT.USER = EXPERT.USER.DEF
  315.     CALL SETEXPERT
  316.     A1$ = "What is your "
  317.     GOSUB 12500
  318.     CALL COMMINFO
  319.     IF FF THEN _
  320.        LOGON.ERROR.INDEX = 1 : _
  321.        GOTO 10620
  322.     IF MIN.OLDCALLER.BAUD > BAUD.TEST THEN _
  323.        CALL QTPUT (MID$(STR$(BAUD.TEST),2) + " BAUD ACCESS NOT ALLOWED!",2) : _
  324.        LG$(7) = "OLD CALLER BAUD RESTRICTION" : _
  325.        LOGON.ERROR.INDEX = 7 : _
  326.        GOTO 10620
  327.     TURBO.LOGON = (LEFT$(B$(4),1) = "!")
  328.     HOME.CONFERENCE$ = RIGHT$(B$(4),LEN(B$(4)) + TURBO.LOGON)
  329. '
  330. ' *****  CHECK IF SAME USER ON ANOTHER NODE   ****
  331. '
  332. 410 IF EXIT.TO.DOORS THEN _
  333.        CURRENT.DATE$ = MID$(MESSAGE.RECORD$,119,2) + _
  334.                        "-" + _
  335.                        MID$(MESSAGE.RECORD$,121,2) + _
  336.                        "-" + _
  337.                        MID$(MESSAGE.RECORD$,123,2) : _
  338.        TIM$ = MID$(MESSAGE.RECORD$,125,2) + _
  339.               ":" + _
  340.               RIGHT$(MESSAGE.RECORD$,2) : _
  341.        IF LEFT$(TIM$,2) < "12" THEN _
  342.           TIM$ = TIM$ + _
  343.                  " AM" _
  344.        ELSE TIM$ = TIM$ + _
  345.                    " PM"
  346.     NODE.INDEX = 2
  347.     XX = NODES.IN.SYSTEM + 1
  348. 412 IF NODE.INDEX > XX THEN _
  349.        GOTO 430
  350.     GET 1,NODE.INDEX
  351.     IF INSTR(MESSAGE.RECORD$,ACTIVE.USER.NAME$) THEN _
  352.        GOTO 420
  353.     NODE.INDEX = NODE.INDEX + 1
  354.     GOTO 412
  355. 420 IF MID$(MESSAGE.RECORD$,57,1) = "A" THEN _
  356.        LOGON.ERROR.INDEX = 6 : _
  357.        LG$(6) = LG$(6) + _
  358.                 LEFT$(MESSAGE.RECORD$,25) : _
  359.        A$ = "Name <" + ACTIVE.USER.NAME$ + "> in use on another node" : _
  360.        CALL RINGCALLER : _
  361.        GOTO 10620
  362.     FIRST.NAME$ = LEFT$(MESSAGE.RECORD$,INSTR(MESSAGE.RECORD$, " ") - 1)
  363.     IF NOT PRIVATE.DOOR THEN _
  364.        CALL SKIPLINE (1) : _
  365.        CALL QTPUT(FIRST.NAME$ + ", welcome back!",1)
  366. '
  367. ' *****  TEST FOR REMOTE SYSOP LOGGING ON   ****
  368. '
  369. 430 GET 1,NODE.RECORD.INDEX
  370.     SAME.USER = (ACTIVE.USER.NAME$ = LEFT$(MESSAGE.RECORD$,LEN(ACTIVE.USER.NAME$)))
  371. '
  372. ' *****  TEST FOR SYSOP NAME ATTEMPT  ****
  373. '
  374. 445 IF INSTR(ACTIVE.USER.NAME$,"SYSOP") OR _
  375.        INSTR(ACTIVE.USER.NAME$,SYSOP.FIRST.NAME$ + " " + SYSOP.LAST.NAME$) THEN _
  376.        LOGON.ERROR.INDEX = 2 : _
  377.        GOTO 10620
  378. '
  379. ' *****  REMOVE INVALID CHARACTERS FROM USER NAME  ****
  380. '
  381. 455 CALL BADCHAR (ACTIVE.USER.NAME$)
  382.     IF ACTIVE.USER.NAME$ = "" THEN _
  383.        GOTO 400
  384. '
  385. ' ****  CHECK FOR ACTIVE USER   ****
  386. '
  387. 457 CALL SKIPLINE (1)
  388.     GOSUB 12840
  389.     GOSUB 12850
  390.     GOSUB 12598
  391.     GOSUB 11482
  392.     CALL COMPDATE (TODAY.REG.YY,TODAY.REG.MM,TODAY.REG.DD,TODAY.COMPUTE.DATE!)
  393.     IF NOT FOUND THEN _
  394.        GOTO 700
  395.     GOSUB 12984
  396. '
  397. ' *****  ACTIVE USER FOUND  *****
  398. '
  399. 459 GOSUB 9500
  400.     LAST.DATE.TIME.ON.SAVE$ = LAST.DATE.TIME.ON$
  401.     IF EXIT.TO.DOORS THEN _
  402.        TEMP.HOLD.TIME! = VAL(LEFT$(TIM$,2))*3600 + _
  403.                          VAL(MID$(TIM$,4,2))*60 : _
  404.        CALL FINDTIME (USER.LOGON.TIME!) : _
  405.        MINUTES.IN.DOORS = INT((USER.LOGON.TIME! - _
  406.                               (USER.LOGON.TIME! <= TEMP.HOLD.TIME!)*86400 - _
  407.                               TEMP.HOLD.TIME!) / 60) : _
  408.        CALL TIMEREMAIN (TIME.REMAINING!)
  409.     USER.FILE.INDEX = LOC(5)
  410.     GOSUB 5135
  411. '
  412. ' ***  COMPUTE THE NUMBER OF DAYS REMAINING UNTIL REGISTRATION EXPIRES ***
  413. '
  414.     IF RESTRICT.BY.DATE THEN _
  415.        CALL COMPDATE (USER.REG.YY,USER.REG.MM,USER.REG.DD,USER.COMPUTE.DATE!) : _
  416.        REG.DAYS.REMAINING = USER.COMPUTE.DATE! + _
  417.                             DAYS.IN.REGISTRATION.PERIOD - _
  418.                             TODAY.COMPUTE.DATE! : _
  419.        CALL EXPDATE (USER.COMPUTE.DATE!,DAYS.IN.REGISTRATION.PERIOD,EXPIRATION.DATE$) _
  420.     ELSE REG.DAYS.REMAINING = 365
  421.     IF NOT PRIVATE.DOOR THEN _
  422.        IF REG.DAYS.REMAINING < 0 THEN _
  423.        IF USER.SECURITY.LEVEL > EXPIRED.SECURITY THEN _
  424.           CALL QTPUT (LG$(9) + _
  425.                       " - security reset to " + _
  426.                       STR$(EXPIRED.SECURITY),1) : _
  427.           LOGON.ERROR.INDEX = 9 : _
  428.           USER.SECURITY.LEVEL = EXPIRED.SECURITY : _
  429.           LSET SECURITY.LEVEL$ = MKI$(USER.SECURITY.LEVEL) : _
  430.           GOSUB 5135
  431. 460 USER.SECURITY.LEVEL$ = STR$(USER.SECURITY.LEVEL)
  432.     IF USER.SECURITY.LEVEL > -1 THEN _
  433.        USER.SECURITY.LEVEL$ = MID$(USER.SECURITY.LEVEL$,2)
  434.     IF USER.SECURITY.LEVEL >= MINIMUM.LOGON.SECURITY THEN _
  435.        GOTO 470
  436.     IF NOT PRIVATE.DOOR THEN _
  437.        GOSUB 465 : _
  438.        CALL DELAYIT (8 + BPS)
  439.     IF LOGON.ERROR.INDEX < 9 AND _
  440.        EC = 0 THEN _
  441.        LOGON.ERROR.INDEX = 8
  442.     GOTO 10620
  443. '
  444. ' ***  DISPLAY LOG-ON MESSAGE FOR SPECIFIC SECURITY LEVEL  ***
  445. '
  446. 465 TURBO.LOGON = TURBO.LOGON AND (EXIT.TO.DOORS OR _
  447.                   (USER.SECURITY.LEVEL >= ALLOW.CALLER.TURBO))
  448.     IF TURBO.LOGON THEN _
  449.        RETURN
  450.     FILE.NAME$ = WELCOME.FILE.DRV.PATH$ + _
  451.                  "LG" + _
  452.                  USER.SECURITY.LEVEL$ + _
  453.                  ".DEF"
  454. 466 STOP.INTERRUPTS = TRUE
  455.     BYPASS.TIME.CHECK = TRUE
  456.     CALL BUFFILE (FILE.NAME$,X)
  457.     RETURN
  458. 470 GOSUB 12989
  459.     CI$ = CITY.STATE$
  460.     CALL TRIM (CI$)
  461.     ATTEMPTS.ALLOWED = 4
  462.     PASSWORD.SAVE$ = PASSWORD$
  463.     TEMP.SYSOP = (USER.SECURITY.LEVEL >= SYSOP.SECURITY.LEVEL)
  464.     MESSAGE.PASSWORD = FALSE
  465.     IF NOT SUB.BOARD THEN _
  466.        ELAPSED.TIME = CVI(ELAPSED.TIME$)
  467.     IF NOT EXIT.TO.DOORS THEN _
  468.          IF CURRENT.DATE$ <> LEFT$(LAST.DATE.TIME.ON$,8) THEN _
  469.             IF ELAPSED.TIME > 0 OR NOT KEEP.TIME.CREDITS THEN _
  470.                ELAPSED.TIME = 0
  471.     IF PRIVATE.DOOR AND _
  472.        TRANSFER.FUNCTION = 3 THEN _
  473.        GOSUB 755 : _
  474.        GOTO 800
  475.     IF PASSWORD.SAVE$ = SPACE$(LEN(PASSWORD.SAVE$)) THEN _
  476.        GOSUB 755 : _
  477.        GOTO 800
  478. 480 GOSUB 5370
  479.     IF PRIVATE.DOOR OR (A AND ESCAPE.INSECURE) THEN _
  480.        Z$ = PASSWORD.SAVE$ : _
  481.        PASSWORD.FAILED = 0 : _
  482.        GOTO 644
  483.     IF Q => 3 THEN _
  484.        Z$ = B$(3) : _
  485.        ATTEMPTS = 1 : _
  486.        SUBROUTINE.PARAMETER = 5 _
  487.     ELSE SUBROUTINE.PARAMETER = 4
  488.     CALL PASSWRD
  489. 630 IF PASSWORD.FAILED THEN _
  490.        LOGON.ERROR.INDEX = 4 : _
  491.        GOTO 10620
  492. 643 GOSUB 41070
  493. 644 NEW.USER = FALSE
  494.     WK$ = RIGHT$(STR$(ASC(MID$(LIST.NEW.DATE$,2))),2) + _   ' MM
  495.            "/" + _
  496.            RIGHT$(STR$(ASC(MID$(LIST.NEW.DATE$,3))),2) + _   ' DD
  497.            "/" + _
  498.            RIGHT$(STR$(ASC(LIST.NEW.DATE$)),2)               ' YY
  499.     LM$ = RIGHT$(WK$,2) + _                                 ' YY
  500.           LEFT$(WK$,2) + _                                  ' MM
  501.           MID$(WK$,4,2)                                     ' DD
  502.     IF MID$(LM$,3,1) = " " THEN _
  503.        MID$(LM$,3,1) = "0"
  504. 655 IF MID$(LM$,5,1) = " " THEN _
  505.        MID$(LM$,5,1) = "0"
  506. 660 CALL MUZAK (1)
  507.     GOTO 800
  508. '
  509. ' ****  ACTIVE USER NOT FOUND (NEWUSER ROUTINE)  ****
  510. '
  511. 700 EXPERT.USER = FALSE
  512.     CALL SETEXPERT
  513.     IF MIN.NEWCALLER.BAUD > BAUD.TEST THEN _
  514.        CALL QTPUT ("(" + MID$(STR$(BAUD.TEST),2) + " BAUD ACCESS FOR REGISTERED USERS ONLY)",2) : _
  515.        LG$(7) = "NEW CALLER BAUD RESTRICTION" : _
  516.        LOGON.ERROR.INDEX = 7 : _
  517.        GOTO 10620
  518.     CALL QTPUT ("Name not found",1)
  519.     GOSUB 12558
  520.     IF NO THEN _
  521.        GOSUB 12990 : _
  522.        GOTO 400
  523.     Z$ = FIRST.NAME$
  524.     GOSUB 12570
  525.     IF FOUND THEN _
  526.        GOSUB 12984 : _
  527.        GOTO 12595
  528.     Z$ = LAST.NAME$
  529.     GOSUB 12570
  530.     IF FOUND THEN _
  531.        GOSUB 12984 : _
  532.        GOTO 12595
  533.     TURBO.LOGON = FALSE
  534. 710 IF USER.FILE.INDEX = 0 AND NOT SURVIVE.NOUSER.ROOM THEN _
  535.        GOTO 13540
  536. 720 GOSUB 5370
  537.     IF A THEN _
  538.        USER.SECURITY.LEVEL = SYSOP.SECURITY.LEVEL _
  539.     ELSE USER.SECURITY.LEVEL = DEFAULT.SECURITY.LEVEL
  540. 725 IF USER.SECURITY.LEVEL < MINIMUM.LOGON.SECURITY THEN _
  541.        LOGON.ERROR.INDEX = 1 : _
  542.        GOTO 460
  543.     IF FIRST.NAME$ = LAST.NAME$ THEN _
  544.        LOGON.ERROR.INDEX = 3 : _
  545.        GOTO 10620
  546.     IF NOT REMEMBER.NEW.USERS THEN _
  547.        GOSUB 13700 : _
  548.        USER.FILE.INDEX = 0 : _
  549.        GOSUB 12960: _
  550.        PREV.LAST.ON$ = "00-00-00": _
  551.        GOTO 735
  552.     NEW.USER = TRUE
  553.     CALL OPENUSER (HIGHEST.USER.RECORD)
  554.     GOSUB 9450
  555.     GOSUB 12630
  556.     MID$(USER.RECORD$,START.HASH,LEN.HASH) = LEFT$("NEWUSER",LEN.HASH)
  557.     IF START.INDIV>0 THEN _
  558.        MID$(USER.RECORD$,START.INDIV,LEN.INDIV) = INDIV.VALUE$
  559.     GOSUB 9440
  560. 730 GOSUB 12960
  561. 735 BYPASS.TIME.CHECK = TRUE
  562.     CALL ASKMORE ("",TRUE,TRUE,X,TRUE)
  563.     FILE.NAME$ = NEWUSER.FILE$
  564.     STOP.INTERRUPTS = TRUE
  565.     GOSUB 1790
  566.     CALL SKIPLINE(1)
  567. 739 CALL QTPUT(ACTIVE.USER.NAME$ + " from " + CI$,1)
  568. 740 A$ = "C)hange name/address, D)isconnect, [R]egister"
  569.     GOSUB 12995
  570.     IF Q = 0 THEN _
  571.        Z$ = "R" _
  572.     ELSE CALL ALLCAPS (B$(1)) : _
  573.          Z$ = B$(1)
  574.     S = INSTR("CDR",Z$)
  575. 745 IF NOT REMEMBER.NEW.USERS THEN _
  576.        ON S GOTO 748,752,754
  577.     ON S GOTO 747,750,760
  578.     GOTO 740
  579. 747 CALL UPDTCALR (ACTIVE.USER.NAME$ + " from " + CI$ + _
  580.                            " changed Name/Address",2)
  581.     MID$(USER.RECORD$,START.HASH,LEN.HASH) = STRING$(LEN.HASH,0)
  582.     GOSUB 9440
  583.     GOSUB 12991
  584. 748 FF = FALSE
  585.     GOTO 400
  586. '
  587. ' ***  D - COMMAND FROM NEWUSER ROUTINE (DISCONNECT - REFUSE TO REGISTER) ***
  588. '
  589. 750 CALL UPDTCALR (ACTIVE.USER.NAME$ + " from " + CI$ + _
  590.                            " didn't register",2)
  591.     MID$(USER.RECORD$,START.HASH,LEN.HASH) = STRING$(LEN.HASH,0)
  592.     GOSUB 9440
  593.     GOSUB 12991
  594. 752 FF = FALSE
  595.     USER.FILE.INDEX = 0
  596.     GOTO 13540
  597. '
  598. ' *****  GET AND VERIFY PASSWORD   *****
  599. '
  600. 754 CALL QTPUT ("GUEST privileges granted.  RE-REGISTER on future calls",1)
  601.     USER.SECURITY.SAVE = USER.SECURITY.LEVEL
  602.     GOTO 832
  603. 755 IF PRIVATE.DOOR THEN _
  604.        B$ = PASSWORD$ : _
  605.        Z$ = B$ : _
  606.        RETURN
  607.     GOSUB 12800
  608.     A$ = "Re-enter PASSWORD for verification (Dots Echo)"
  609.     GOSUB 45010
  610.     SWAP Z$,B$
  611.     CALL ALLCAPS (Z$)
  612.     IF B$ <> Z$ THEN _
  613.        CALL QTPUT ("Passwords Don't match!",1) : _
  614.        GOTO 755
  615.     RETURN
  616. '
  617. ' ***  R - COMMAND FROM NEWUSER ROUTINE - REGISTER   ***
  618. '
  619. 760 GOSUB 755
  620.     CALL ALLCAPS (Z$)
  621.     LSET PASSWORD$ = Z$
  622.     CALL QTPUT("Please REMEMBER your password",1)
  623.     USER.TEXT.COLOR = 37
  624.     TEMP.SECURITY.LEVEL = USER.SECURITY.LEVEL
  625.     CALL PROTOCOL
  626.     USER.TRANSFER.DEFAULT$ = "N"
  627.     PROTO.PROMPT$ = "None"
  628.     IF NEWUSER.SETS.DEFAULTS THEN _
  629.        GOSUB 42950 : _
  630.        BYPASS.TIME.CHECK = TRUE : _
  631.        GOSUB 43000 : _
  632.        BYPASS.TIME.CHECK = FALSE : _
  633.        CALL GRAPHIC (USER.GRAPHIC.DEFAULT$) : _
  634.        GOSUB 42805 : _
  635.        GOSUB 42700 _
  636.     ELSE UPPER.CASE = FALSE : _
  637.          CALL SETUGD (0,USER.GRAPHIC.DEFAULT$) : _
  638.          NULLS = FALSE
  639.     GOSUB 12900
  640.     GOSUB 5135
  641.     CALL DEFAULTU
  642.     FILE.NAME$ = NEW.USER.QUESTIONNAIRE$
  643.     GOSUB 11520
  644.     LSET SECURITY.LEVEL$ = MKI$(USER.SECURITY.LEVEL)
  645. '
  646. ' ****  LOGIN ALL USERS  ****
  647. '
  648. 800 IF ORIG.CONFIG$ = CURRENT.DEF$ THEN _
  649.        MAIN.USER.FILE.INDEX = USER.FILE.INDEX : _
  650.        USER.SECURITY.SAVE = USER.SECURITY.LEVEL : _
  651.        ORIG.USER.NAME$ = ACTIVE.USER.NAME$
  652.     TIMES.LOGGED.ON = CVI(MID$(USER.OPTIONS$,1,2)) - _
  653.                       (ORIG.CONFIG$ <> CURRENT.DEF$ OR NOT SUB.BOARD)
  654.     GOSUB 9500
  655.     PREV.LAST.ON$ = LAST.DATE.TIME.ON$
  656.     IF LOCAL.USER THEN _
  657.        TALK.TO.MODEM.AT$ = "9600" : _
  658.        BAUD.PARITY$ = "9600 BAUD,N,8,1" : _
  659.        MODEM.INIT.BAUD$ = "9600" : _
  660.        SNOOP = TRUE : _
  661.        LINE.FEEDS = TRUE
  662.     CALL SETCRLF
  663.     CALL CALLOPT
  664.     CALL XFERTYPE (2,TRUE)
  665.     IF NOT SUB.BOARD THEN _
  666.        BOARD.CHECK.DATE$ = PREV.LAST.ON$
  667.     IF PRIVATE.DOOR OR SUB.BOARD THEN _
  668.        GOTO 815
  669.     GOSUB 465
  670.     IF (EIGHT.BIT AND _
  671.        AUTODOWNLOAD.DESIRED) OR _
  672.        ASK.IDENTITY THEN _
  673.        CALL TESTUSER
  674.     CALL QTPUT ("Logging " + ACTIVE.USER.NAME$,1)
  675.     CALL QTPUT ("RBBS-PC " + VERSION.ID$ + " NODE " + NODE.ID$ + _
  676.                 ", OPERATING AT " + BAUD.PARITY$,1)
  677.     CALL SKIPLINE (1)
  678.     ATTEMPTS = 0
  679. '
  680. ' *****  NOTIFY THE CALLER IF THEY ARE ABLE TO USE "AUTODOWNLOADING"  ****
  681. '
  682.     IF EIGHT.BIT AND AUTODOWNLOAD.AVAILABLE THEN _
  683.        A$ = CHR$(9) + _
  684.             RETURN.LINE.FEED$ + _
  685.             "You may use AUTODOWNLOADing!" : _
  686.        CALL RINGCALLER : _
  687.        CALL DELAYIT(4)
  688. 815 DOWNLOADS = CVI(USER.DOWNLOADS$)
  689.     UPLOADS = CVI(USER.UPLOADS$)
  690.     IF ENFORCE.UPLOAD.DOWNLOAD.RATIOS THEN _
  691.        DL.TODAY! = CVS(TODAY.DL$) : _
  692.        BYTES.TODAY! = CVS(TODAY.BYTES$) : _
  693.        DLBYTES! = CVS(DL.BYTES$) : _
  694.        ULBYTES! = CVS(UL.BYTES$)
  695.     IF CURRENT.DATE$ <> LEFT$(LAST.DATE.TIME.ON.SAVE$,8) THEN  _
  696.        DL.TODAY! = 0 : _
  697.        BYTES.TODAY! = 0
  698.     IF RATIO.RESTRICTION# > 0 AND ENFORCE.UPLOAD.DOWNLOAD.RATIOS THEN _
  699.        IF BYTE.METHOD = 0 AND UPLOADS < INITIAL.CREDIT# THEN _
  700.           UPLOADS = INITIAL.CREDIT# _
  701.        ELSE IF BYTE.METHOD = 1 AND ULBYTES! < INITIAL.CREDIT# THEN _
  702.                ULBYTES! = INITIAL.CREDIT#
  703.     LAST.MESSAGE.READ = -LAST.MESSAGE.READ * (LAST.MESSAGE.READ <= HIGH.MESSAGE.NUMBER)
  704.     LSET USER.OPTIONS$ = MKI$(TIMES.LOGGED.ON) + _
  705.                          MID$(USER.OPTIONS$,3)
  706.     LSET LAST.DATE.TIME.ON$ = CURRENT.DATE$ + _
  707.                               " " + _
  708.                               TIME.LOGGED.ON$
  709.     MID$(USER.RECORD$,START.HASH,LEN.HASH) = HASH.VALUE$
  710.     IF START.INDIV > 0 THEN _
  711.        MID$(USER.RECORD$,START.INDIV,LEN.INDIV) = INDIV.VALUE$
  712.     LSET USER.NAME$ = ORIG.USER.NAME$
  713.     IF (NOT EXIT.TO.DOORS) AND NOT (ORIG.MESSAGE.FILE$ = ACTIVE.MESSAGE.FILE$ AND SUB.BOARD) THEN _
  714.        CALL AUTOPAGE
  715.     IF NOT SUB.BOARD THEN _
  716.        ORIG.USER.FILE.INDEX = USER.FILE.INDEX
  717.     GOSUB 9440
  718.     GOSUB 12991
  719.     CALL ASKMORE ("",TRUE,TRUE,X,TRUE)
  720.     IF TURBO.LOGON THEN _
  721.        GOTO 821
  722.     IF NOT SAME.USER THEN _
  723.        STOP.INTERRUPTS = NOT WELCOME.INTERRUPTABLE : _
  724.        BYPASS.TIME.CHECK = TRUE : _
  725.        FILE.NAME$ = WELCOME.FILE$ : _
  726.        DISPLAY.AS.UNIT = TRUE : _
  727.        GOSUB 1790 : _
  728.        DISPLAY.AS.UNIT = FALSE
  729.     BYPASS.TIME.CHECK = FALSE
  730.     STOP.INTERRUPTS = TRUE
  731. 816 IF NOT NEW.USER THEN _
  732.        CALL QTPUT("Times on:" + STR$(TIMES.LOGGED.ON) + _
  733.             "  Last was: " + PREV.LAST.ON$,1)
  734. 817 IF NOT REMIND.FILE.TRANSFERS OR NEW.USER THEN _
  735.        GOTO 818
  736.     IF NOT ENFORCE.UPLOAD.DOWNLOAD.RATIOS THEN _
  737.        A$ = "Files Downloaded:" + _
  738.             STR$(DOWNLOADS) + _
  739.             "  Uploaded:" + _
  740.             STR$(UPLOADS) : _
  741.        GOSUB 12977 : _
  742.        GOTO 818
  743.     CALL CHECKRATIO (FALSE)
  744. 818 CALL ASKMORE ("",TRUE,TRUE,X,TRUE)
  745.     IF REMIND.PROFILE THEN _
  746.        GOSUB 5400 : _
  747.        CALL ASKMORE ("",TRUE,TRUE,X,TRUE)
  748. 821 CALL TRIM (CI$)
  749.     GOSUB 5370
  750.     IF A THEN _
  751.        ACTIVE.USER.NAME$ = "SYSOP"
  752.     GOSUB 4910
  753.     GOSUB 24000
  754.     GET 1,NODE.RECORD.INDEX
  755.     MID$(MESSAGE.RECORD$,1,31) = ACTIVE.USER.NAME$ + _
  756.                                  SPACE$(31 - LEN(ACTIVE.USER.NAME$))
  757.     MID$(MESSAGE.RECORD$,40,2) = " 0"
  758.     MID$(MESSAGE.RECORD$,44,2) = STR$(BPS)
  759.     MID$(MESSAGE.RECORD$,55,2) = " 0"
  760.     MID$(MESSAGE.RECORD$,57,1) = "A"
  761.     MID$(MESSAGE.RECORD$,60,5) = TALK.TO.MODEM.AT$ + _
  762.                                  SPACE$(5 - LEN(TALK.TO.MODEM.AT$))
  763.     MID$(MESSAGE.RECORD$,72,2) = " 0"
  764.     MID$(MESSAGE.RECORD$,93,24) = CI$ + _
  765.                                   SPACE$(24)
  766.     PUT 1,NODE.RECORD.INDEX
  767.     GOSUB 12985
  768.     IF EXIT.TO.DOORS THEN _
  769.        IF TRANSFER.FUNCTION = 3 THEN _
  770.           TRANSFER.FUNCTION = 0 : _
  771.           GOTO 832 _
  772.        ELSE GOTO 832
  773.     IF NOT NEW.USER THEN _
  774.        GOTO 832
  775.     Z$ = REGISTRATION.PROGRAM$
  776.     TRANSFER.FUNCTION = 3
  777.     CALL DOOREXIT
  778.     TRANSFER.FUNCTION = 0                                                      3
  779.     GOTO 832
  780. '
  781. ' ****  ESC PRESSED ON LOCAL CONSOLE ENTERS HERE   ****
  782. '
  783. 822 LOCATE 24,1
  784.     CALL MODEMPUT (MODEM.GO.OFFHOOK.COMMAND$)
  785.     LOCAL.USER = TRUE
  786.     SNOOP = TRUE
  787.     WAIT.BEFORE.DISCONNECT = 32400
  788.     BPS = -6
  789.     CALL COMMINFO
  790.     CALL MUZAK (2)
  791.     IF NOT ESCAPE.INSECURE THEN _
  792.        GOTO 345
  793.     ACTIVE.USER.NAME$ = SYSOP.PASSWORD.1$ + " " + SYSOP.PASSWORD.2$
  794.     FIRST.NAME$ = SYSOP.PASSWORD.1$
  795.     LAST.NAME$ = SYSOP.PASSWORD.2$
  796.     CALL FINDTIME (USER.LOGON.TIME!)
  797.     GOTO 457
  798. 832 IF REG.DAYS.REMAINING <= DAYS.TO.WARN AND _
  799.        RESTRICT.BY.DATE AND REG.DAYS.REMAINING > 0 THEN _
  800.        CALL QTPUT ("Registration EXPIRES in" + _
  801.                    STR$(REG.DAYS.REMAINING) + " days!",1) : _
  802.        CALL DELAYIT (5)
  803.     IF (NOT REQ.QUES.ANSWERED) AND _
  804.        REQUIRED.QUESTIONNAIRE$ <> "" THEN _
  805.          FILE.NAME$ = REQUIRED.QUESTIONNAIRE$ : _
  806.          GOSUB 11520 : _
  807.          IF OK THEN _
  808.             REQ.QUES.ANSWERED = TRUE
  809. 837 Z$ = ACTIVE.USER.NAME$ + _
  810.             " on at " + _
  811.             CURRENT.DATE$ + _
  812.             ", " + _
  813.             TIM$ + _
  814.             " from " + _
  815.             CI$ + _
  816.             ", " + _
  817.             BAUD.PARITY$
  818.      NG$ = Z$ + SPACE$(128 - LEN(Z$))
  819.      MESSAGE.USER.NAME$ = LEFT$(ACTIVE.USER.NAME$,22)
  820. '
  821. ' *  ALWAYS RECORD THE HASH/INDIVIDUATING FIELD TO EACH RECORD LOGGED OUT     *
  822. '
  823.      X$ = "{" + _
  824.           HASH.VALUE$ + _
  825.           "/" + _
  826.           INDIV.VALUE$ + _
  827.           "}"
  828.      IF LEN(Z$) < 65 THEN _
  829.         X = 65 _
  830.      ELSE X = LEN(Z$) + 2
  831.      MID$(NG$,X) = X$
  832.      CALL PRINTIT ("  " + Z$)
  833.      IF NEW.USER THEN _
  834.         CALL UPDTCALR ("NEWUSER",1) : _
  835.         CALL MUZAK (2)
  836. 842 X = (MAX.PER.DAY - MINUTES.PER.SESSION!)
  837.     X = -X * (X > 0)    ' extra from daily max
  838.     Q! = X + MINUTES.PER.SESSION! + (MAX.PER.DAY > 0) * ELAPSED.TIME
  839.     IF Q! > MINUTES.PER.SESSION! THEN _
  840.        Q! = MINUTES.PER.SESSION!
  841.     SECONDS.PER.SESSION! = (Q! - MINUTES.IN.DOORS)* 60 + TIME.CREDITS!
  842.     SYSOP = (USER.SECURITY.LEVEL >= SYSOP.SECURITY.LEVEL)
  843.     GOSUB 12987
  844.     IF SUB.BOARD THEN _
  845.        GOTO 850
  846.     CALLS.TODATE! = CALLS.TODATE! + 1 + SYSOP
  847. 850 SUBROUTINE.PARAMETER = 2
  848.     CALL LINE25
  849.     CALL SKIPLINE (1)
  850.     IF TURBO.LOGON THEN _
  851.        GOTO 900
  852.     CALL CTNEWFILES (BOARD.CHECK.DATE$,M(),LAST.NEW,A$)
  853.     IF FMS.DIRECTORY$ <> "" THEN _
  854.        CALL QTPUT(A$ + STR$(LAST.NEW) + " NEW file(s) since last on",1) _
  855.     ELSE GOTO 852
  856.     IF NEW.USER OR LAST.NEW < 1 OR NOT NEW.FILES.CHECK THEN _
  857.        GOTO 852
  858.     L = LEN(DOWNLOAD.DRIVES$)
  859.     OSS = 19
  860.     IF (NOT SKIP.FILES.LOGON) AND _
  861.        (USER.SECURITY.LEVEL >= MIN.SEC.TO.VIEW) AND _
  862.        USER.SECURITY.LEVEL >= OPT.SEC(OSS) THEN _
  863.           A$ = "Review new files to download ([Y],N)" : _
  864.           GOSUB 12999 : _
  865.           IF NOT NO THEN _
  866.              Q = 3 : _
  867.              B$(2) = MID$(BOARD.CHECK.DATE$,1,2) + _
  868.                      MID$(BOARD.CHECK.DATE$,4,2) + _
  869.                      MID$(BOARD.CHECK.DATE$,7,2) : _
  870.              Y$ = B$(3) : _
  871.              CALL BRKFNAME (FMS.DIRECTORY$,DR$,Y$,X$,FALSE) : _
  872.              B$(3) = Y$ : _
  873.              TIME.LOCK.EXEMPT = TRUE : _
  874.              GOSUB 20185 : _
  875.              TIME.LOCK.EXEMPT = FALSE
  876. 852 STOP.INTERRUPTS = FALSE
  877.     IF USER.SECURITY.LEVEL < OPT.SEC (2) OR _
  878.        ACTIVE.BULLETINS < 1 OR _
  879.        SYSOP OR _
  880.        SAME.USER THEN _
  881.           GOTO 900
  882.     IF BULLETIN.MENU$ = BULLETIN.SAVE$ THEN _
  883.        GOTO 900
  884.     BULLETIN.SAVE$ = BULLETIN.MENU$
  885. 855 CALL ASKMORE ("",TRUE,TRUE,X,TRUE)
  886.     IF BULLETINS.OPTIONAL AND NOT NEW.USER THEN _
  887.        GOTO 856
  888.     STOP.INTERRUPTS = TRUE
  889.     NEW.USER = FALSE
  890.     GOSUB 9700
  891.     STOP.INTERRUPTS = FALSE
  892.     GOTO 900
  893. 856 IF NOT CHECK.BULLETIN.LOGON THEN _
  894.        ANS.INDEX = 0 : _
  895.        GOSUB 9760 : _
  896.        GOTO 900
  897.     CALL SKIPLINE (1)
  898.     A$ = "Skip the" + _
  899.          STR$(ACTIVE.BULLETINS) + _
  900.          " bulletins (Y,[N])"
  901.     GOSUB 12999
  902.     IF YES THEN _
  903.        GOTO 900
  904. 860 NEW.USER = FALSE
  905.     GOSUB 9700
  906. 900 NEW.USER = FALSE
  907.     ACTION.FLAG = (LOGON.MAIL.LEVEL$ = "S")
  908.     LOGON.MAIL.NEW = (LOGON.MAIL.LEVEL$ = "N")
  909.     GOSUB 1895
  910.     IF ACTIVE.USER.NAME$ = "SYSOP" AND NOT SYSOP THEN _
  911.        ACTIVE.USER.NAME$ = ORIG.USER.NAME$
  912.     LOGON.MAIL.NEW = FALSE
  913.     SUBROUTINE.PARAMETER = 2
  914.     CALL LINE25
  915.     SECTION$ = "    "
  916.     A$ = ""
  917.     IF (NOT CONFERENCE.MODE ) AND (NOT SUB.BOARD) AND NOT TURBO.LOGON THEN _
  918.        GOSUB 5800
  919.     EXIT.TO.DOORS = FALSE
  920.     GOSUB 2350
  921.     IF NOT PRIVATE.DOOR THEN _
  922.        GOTO 955
  923.     GOSUB 20165
  924.     CALL SETSECT
  925.     PRIVATE.DOOR = FALSE
  926.     GOTO 1205
  927. 955 GOSUB 4850
  928.     TURBO.LOGON = FALSE
  929. '
  930. ' *                           COMMAND PROCESSING                              *
  931. '
  932. 1200 CLOSE 1
  933.      GOSUB 1280
  934. 1205 CHAT.AVAILABLE = TRUE
  935.      SUBROUTINE.PARAMETER = 1
  936.      STOP.INTERRUPTS = FALSE
  937.      NON.STOP = FALSE
  938.      Q = 0
  939.      IF HOME.CONFERENCE$ <> "" THEN _
  940.         TURBO.LOGON = TRUE : _
  941.         FF = 8 : _
  942.         B$(2) = HOME.CONFERENCE$ : _
  943.         HOME.CONFERENCE$ = "" : _
  944.         Q = 2 : _
  945.         GOTO 1240
  946.      CALL SKIPLINE (1)
  947. 1210 GOSUB 41000
  948.      CALL DISPLAYTR (TIME.REMAINING!)
  949.      IF EXPERT.USER THEN _
  950.         GOTO 1230
  951. 1212 LINES.PRINTED = -MENUS.CAN.PAUSE * LINES.PRINTED
  952.      IF CUSTOM.PUI THEN _
  953.         GOTO 1230
  954.      IF SUB.SECTION < BEG.FILE THEN _
  955.         IF SYSOP THEN _
  956.            FILE.NAME$ = MENU$(1) : _
  957.            GOSUB 43025
  958.      FILE.NAME$ = MENU$(MENU.INDEX)
  959.      DELETE.INVALID = TRUE
  960.      GOSUB 43025
  961.      DELETE.INVALID = FALSE
  962. 1230 CALL LINE25
  963.      CALL SKIPLINE (1)
  964.      IF CONFERENCE.MODE THEN _
  965.         A$ = GRN$ : _
  966.         GOSUB 12979
  967.      IF CUSTOM.PUI THEN _
  968.         CALL USERFACE (USER.GRAPHIC.DEFAULT$) : _
  969.         GOSUB 12997 : _
  970.         GOTO 1235
  971.      IF MENU.INDEX = 6 THEN _
  972.         SUBROUTINE.PARAMETER = 1 : _
  973.         CALL LIBRARY
  974.      A$ = COMMAND.PROMPT$
  975.      GOSUB 12999
  976.      IF Q = 0 THEN _
  977.         GOTO 1230
  978. 1235 Z$ = B$(1)
  979.      IF LEN(Z$) < 1 THEN _
  980.         GOTO 1230
  981.      CALL ALLCAPS (Z$)
  982.      CALL SRCHCMND (SUB.SECTION,FF)
  983.      IF FF < 1 THEN _
  984.         CALL QTPUT ("Unknown command <"+Z$+">",1) : _
  985.         GOTO 1230
  986. 1240 IF USER.SECURITY.LEVEL < OPT.SEC(FF) THEN _
  987.         VIOLATION$ = SECTION$ + _
  988.                      " " + _
  989.                      Z$ : _
  990.         GOSUB 1380 : _
  991.         GOTO 1205
  992.      IF FF > 39 THEN _
  993.         DIRECTORY.EXTENTION$ = LIBRARY.DIRECTORY.EXTENTION$ _
  994.      ELSE DIRECTORY.EXTENTION$ = MAIN.DIRECTORY.EXTENTION$
  995.      LAST.INDEX = Q
  996.      ANS.INDEX = 1 - (LAST.INDEX > 1)
  997.         ON FF GOSUB _
  998.                  1400, _      ' 1  A)nswer questionnaire 1
  999.                  9700, _      ' 2  B)ulletins
  1000.                  1800, _      ' 3  C)omments
  1001.                  10970, _     ' 4  D)oor (exit to)
  1002.                  2000, _      ' 5  E)nter a message
  1003.                  1275, _      ' 6  F)ile system (exit to)
  1004.                  1760, _      ' 7  I)nitial welcome redisplayed
  1005.                  5300, _      ' 8  J)oin a conference
  1006.                  3900, _      ' 9  K)ill a message
  1007.                  4700, _      '10  O)perator page
  1008.                  1900, _      '11  P)ersonal mail (look for)
  1009.                  4330, _      '12  R)ead messages
  1010.                  4340, _      '13  S)can message headers
  1011.                  4320, _      '14  T)opic msg scan
  1012.                  1285, _      '15  U)tilities (exit to)
  1013.                  5800, _      '16  V)iew a conference
  1014.                  9800, _      '17  W)ho's on other nodes displayed
  1015.                  1283, _      '18  @)Library (exit to) 18
  1016.                 20160, _      '19  D)ownload
  1017.                 10570, _      '20  G)oodbye
  1018.                 20155, _      '21  L)ist
  1019.                 20185, _      '22  N)ew
  1020.                 20180, _      '23  P)ersonal files
  1021.                 20175, _      '24  S)can
  1022.                 20170, _      '25  U)pload
  1023.                 20140, _      '26  V)iew ARC Contents
  1024.                  5500, _      '27  B)aud rate change 300==>450 1
  1025.                  9100, _      '28  C)lock (time & time on)
  1026.                  42850, _     '29  E)cho selection
  1027.                  42800, _     '30  F)ile transfer protocol
  1028.                  43000, _     '31  G)raphics
  1029.                  5200, _      '32  L)ines per page
  1030.                  10925, _     '33  M)essage margin
  1031.                  5110, _      '34  P)assword change
  1032.                  5400, _      '35  R)eview preferences
  1033.                  4850, _      '36  S)tatistics displayed
  1034.                  1500, _      '37  T)oggle
  1035.                  10090, _     '38  U)serlog displayed 12
  1036.                  30000, _     '39  A)rchive a Library disk 1
  1037.                  30100, _     '40  C)hange a Library disk
  1038.                  30200, _     '41  D)ownload Library files
  1039.                  10570, _     '42  G)oodbye
  1040.                  20155, _     '43  L)ist a Library directory
  1041.                  20175, _     '44  S)can a Library disk directory
  1042.                  20140, _     '45  V)iew arc contents 7
  1043.                  1325, _      '45  H)elp 1
  1044.                  1330, _      '46  ?)help
  1045.                  1250, _      '49  Q)uit
  1046.                  4240, _      '50  X)expert toggle on/off 4
  1047.                  10070, _     '51  1) List comments file 1
  1048.                  10090, _     '52  2) List callers file
  1049.                  10390, _     '53  3) Recover a message
  1050.                  10530, _     '54  4) Erase comments
  1051.                  11000, _     '55  5) User file maintenance
  1052.                   4130, _     '56  6) Toggle page bell on/off
  1053.                  10930        '57  7) Exit to DOS 2.x or above 7
  1054.      GOTO 1205
  1055. '
  1056. ' ****           QUIT COMMAND (GLOBAL)              ****
  1057. '
  1058. 1250 IF Q > 1 THEN _
  1059.         ANS.INDEX = 2: _
  1060.         GOTO 1270
  1061. 1260 ANS.INDEX = 1
  1062.      IF EXPERT.USER THEN _
  1063.         A$ = QUIT.PROMPT.EXPERT$ _
  1064.      ELSE A$ = QUIT.PROMPT.NOVICE$
  1065.      GOSUB 12999
  1066.      IF Q = 0 THEN _
  1067.         Q = 1: _
  1068.         B$(1) = "M"
  1069. 1270 Z$ = B$(ANS.INDEX)
  1070.      CALL ALLCAPS (Z$)
  1071.      IF Z$ = "C" THEN _
  1072.         Z$ = "M" : _
  1073.         GOTO 5323
  1074.      ON INSTR(QUIT.LIST$,Z$) GOTO 1275,1280,1285,10570,1283
  1075.      GOTO 1260
  1076. 1275 MENU.INDEX = 3
  1077.      GOTO 1295
  1078. 1280 MENU.INDEX = 2
  1079.      GOTO 1295
  1080. 1283 MENU.INDEX = 6
  1081.      ACTIVE.FMS.DIRECTORY$ = ""
  1082.      GOTO 1295
  1083. 1285 MENU.INDEX = 4
  1084. 1295 CALL SETSECT
  1085.      RETURN
  1086. 1300 CALL QTPUT ("Message base " + GRN$,1)
  1087.      RETURN
  1088. '
  1089. ' **** COMMON LOCAL DISPLAY PRINT  ****
  1090. '
  1091. 1315 NUM.RETURNS = 1
  1092. 1320 CALL LPRNT(D$,NUM.RETURNS)
  1093.      RETURN
  1094. '
  1095. ' ******            HELP (GLOBAL)           *****
  1096. '
  1097. 1325 CALL VIEWHELP (SUB.SECTION,USER.GRAPHIC.DEFAULT$, _
  1098.                 MID$("MAINFILEUTILMAINLIBR",4 * MENU.INDEX - 7,4))
  1099.      IF SUBROUTINE.PARAMETER = -1 THEN _
  1100.         RETURN 10595
  1101.      RETURN
  1102. 1330 IF EXPERT.USER THEN _
  1103.         RETURN 1212
  1104.      GOTO 1325
  1105. '
  1106. ' *****  RECORD SECURITY VIOLATIONS   *****
  1107. '
  1108. 1380 CALL SVIOLATION
  1109.      IF NOT DENY.ACCESS THEN _
  1110.         RETURN
  1111. 1386 CALL DENYACCESS
  1112.      GOTO 10620
  1113. 1397 A$ = "Sorry, " + _
  1114.           FIRST.NAME$ + _
  1115.           ", " + _
  1116.           A$
  1117.      GOTO 12976
  1118. '
  1119. ' ***  END KEY - FORCE CURRENT USER OFF AND LOCK THEM OUT  ***
  1120. '
  1121. 1400 A1$ = ANS.MENU$
  1122. 1401 CALL SUBMENU ("Which questionnaire(s), L)ist" + PRESS.ENTER.EXPERT$, _
  1123.                    A1$,QUES.PATH$,".DEF","",USER.GRAPHIC.DEFAULT$,TRUE,FALSE,TRUE)
  1124.      IF Q = 0 THEN _
  1125.         RETURN
  1126.      IF SUBROUTINE.PARAMETER = -1 THEN _
  1127.         RETURN 10595
  1128.      QUESTIONNAIRE.HOLD$ = Z$
  1129.      GOSUB 11520
  1130.      CLOSE 2
  1131.      CALL UPDTCALR (QUESTIONNAIRE.HOLD$ + " questionnaire " + _
  1132.         MID$("answeredaborted",1 - 8 * QUESTIONNAIRE.ABORTED,8),2)
  1133.      ANS.INDEX = ANS.INDEX + 1
  1134.      IF ANS.INDEX > LAST.INDEX THEN _
  1135.         ANS.INDEX = 0
  1136.      GOTO 1401
  1137. '
  1138. ' *****    TOGGLE COMMAND (UTILITIES)     *****
  1139. '
  1140. 1500 IF Q > 1 THEN _
  1141.         ANS.INDEX = 2 : _
  1142.         LAST.INDEX = Q : _
  1143.         GOTO 1510
  1144. 1502 ANS.INDEX = 1
  1145.      A$ = "A)utodwnld   B)ullet  C)ase     F)ile   H)ilite"
  1146.      CALL COLORPMT (A$)
  1147.      CALL QTPUT (A$,1)
  1148.      A$ = "L)ine feeds  N)ulls   T)urboKey X)pert  !)bell"
  1149.      CALL COLORPMT (A$)
  1150.      CALL QTPUT (A$,1)
  1151.      A$ = "TOGGLE which options on/off?" + PRESS.ENTER$
  1152.      GOSUB 12999
  1153.      IF Q=0 THEN _
  1154.         RETURN
  1155.      LAST.INDEX = Q
  1156. 1510 Z$ = B$(ANS.INDEX)
  1157.      CALL ALLCAPS (Z$)
  1158.      FF = INSTR("ABCFHLNTX!",Z$)
  1159.      IF FF < 1 THEN _
  1160.         GOTO 1502
  1161.      CALL TOGGLE (FF)
  1162.      IF SUBROUTINE.PARAMETER < 0 THEN _
  1163.         GOTO 202
  1164.      ANS.INDEX = ANS.INDEX + 1
  1165.      IF ANS.INDEX > LAST.INDEX THEN _
  1166.         GOTO 1502
  1167.       GOTO 1510
  1168. '
  1169. ' ****  I - COMMAND FROM MAIN MENU (DISPLAY INITIAL WELCOME)  ****
  1170. '
  1171. 1760 FILE.NAME$ = WELCOME.FILE$
  1172. 1765 GOSUB 1790
  1173.      RETURN
  1174. 1790 CALL GRAPHIC (USER.GRAPHIC.DEFAULT$)
  1175.      CALL BUFFILE (FILE.NAME$,X)
  1176.      CALL CARRIER
  1177.      IF SUBROUTINE.PARAMETER = -1 THEN _
  1178.         RETURN 10595
  1179.      RETURN
  1180. '
  1181. ' ***  C - COMMAND FROM MAIN MENU (LEAVE COMMENT FOR SYSOP)   ***
  1182. '
  1183. 1800 MESSAGE.TO$ = "SYSOP"
  1184.      SUBJECT$ = "COMMENT"
  1185.      GOSUB 1893
  1186.      IF (ACTIVE.MESSAGES >= MAXIMUM.MESSAGES OR _
  1187.          NEXT.MESSAGE.RECORD + 5 > HIGHEST.MESSAGE.RECORD OR _
  1188.          NOT COMMENTS.AS.MESSAGES ) THEN _
  1189.         A$ = "Want a REPLY?  Use "+MID$(ALL.OPTS$,5,1)+" instead.  Leave a comment? (Y/[N])" : _
  1190.         GOSUB 12999 : _
  1191.         IF NOT YES THEN _
  1192.            CALL SKIPLINE (1) : _
  1193.            RETURN _
  1194.         ELSE SYSOP.COMMENT = TRUE : _
  1195.              GOTO 2007
  1196.      SYSOP.COMMENT = FALSE
  1197.      SYSOP.MESSAGE = TRUE
  1198.      FT$ = "comment"
  1199.      GOTO 2010
  1200. 1850 BX = &H3
  1201.      EN$ = COMMENTS.FILE$
  1202.      GOSUB 12992
  1203.      CALL OPENWRKA (COMMENTS.FILE$)
  1204.      A$ = FIRST.NAME$ + _
  1205.           ", Thanks for comments!"
  1206.      GOSUB 12976
  1207.      SUBROUTINE.PARAMETER = 2
  1208.      CALL AMORPM
  1209.      CALL PRNTWRKA (ACTIVE.USER.NAME$+" "+CURRENT.DATE$+" "+TIM$+" Node "+NODE.ID$)
  1210.      FOR X = 1 TO LINES.IN.MESSAGE
  1211.         CALL PRNTWRKA (A$(X))
  1212.      NEXT
  1213.      CALL PRNTWRKA (CARRIAGE.RETURN$)
  1214.      CLOSE 2
  1215.      IF EC <> 0 THEN _
  1216.         EL = 1850 : _
  1217.         GOTO 13000
  1218.      BX = &H3
  1219.      EN$ = COMMENTS.FILE$
  1220.      GOSUB 12993
  1221.      CALL UPDTCALR ("Left comment",1)
  1222.      REDIM A$(ADIM)
  1223.      RETURN
  1224. '
  1225. ' ****  P - COMMAND FROM MAIN MENU (DISPLAY PERSONAL MAIL)  *****
  1226. '
  1227. 1893 ACTION.FLAG = TRUE
  1228.      GOTO 1897
  1229. 1895 IF TURBO.LOGON THEN _
  1230.         RETURN
  1231.      B$(0) = LEFT$("NEW ",-4*LOGON.MAIL.NEW)
  1232. 1897 IF ACTIVE.MESSAGE.FILE$ = PREV.BASE$ THEN _
  1233.         ACTION.FLAG = FALSE : _
  1234.         RETURN
  1235. 1900 GOSUB 5344
  1236.      IF PRIVATE.DOOR THEN _
  1237.         ACTION.FLAG = TRUE
  1238.      PREV.BASE$ = ACTIVE.MESSAGE.FILE$
  1239.      SHOW.ACTIVE = FALSE
  1240.      IF NOT ACTION.FLAG THEN _
  1241.         CALL QTPUT ("Checking messages in " + GRN.NAME$,0) : _
  1242.         SHOW.ACTIVE = TRUE _
  1243.      ELSE CALL QTPUT ("Loading messages",0) : _
  1244.           FOR I = 1 TO Q: _
  1245.              A$(I) = B$(I) : _
  1246.           NEXT
  1247.      I = 0
  1248.      MESSAGES.FROM.USER = FALSE
  1249.      ACTIVE.MESSAGES = 0
  1250.      MAIL.REPORTED = ACTION.FLAG
  1251.      FIRST.OLD = TRUE
  1252.      GOSUB 23000
  1253.      MESSAGE.RECORD = FIRST.MESSAGE.RECORD
  1254.      ACTIVE.DELAY! = 0
  1255.      MAXIMUM.MESSAGES = VAL(MID$(MESSAGE.RECORD$,89,7))
  1256.      IF MAXIMUM.MESSAGES > MM THEN _
  1257.         MAXIMUM.MESSAGES = MM
  1258.      REDIM M(MAXIMUM.MESSAGES,2)
  1259.      NUM.DOTS = 0
  1260. 1905 GET 1,MESSAGE.RECORD
  1261.      CALL CHECKINT (MID$(MESSAGE.RECORD$,117,4))
  1262.      IF EC <> 0 THEN _
  1263.         EL = 1905 : _
  1264.         GOTO 13000
  1265.      NUMBER.RECORDS.IN.MESSAGE = VAL(MID$(MESSAGE.RECORD$,117,4))
  1266.      IF NUMBER.RECORDS.IN.MESSAGE < 1 THEN _
  1267.         NUMBER.RECORDS.IN.MESSAGE = 1
  1268. 1906 IF ACTION.FLAG OR (FIRST.OLD AND NOT MAIL.REPORTED) THEN _
  1269.         CALL MARKTIME (NUM.DOTS)
  1270.      CALL CARRIER
  1271.      IF SUBROUTINE.PARAMETER = -1 THEN _
  1272.         RETURN 10595
  1273. 1910 IF MESSAGE.RECORD >= NEXT.MESSAGE.RECORD THEN _
  1274.         LOW.MESSAGE.NUMBER = M(1,2) : _
  1275.         GOTO 1950
  1276. 1915 IF MID$(MESSAGE.RECORD$,116,1) = DELETED.MESSAGE$ OR _
  1277.         MID$(MESSAGE.RECORD$,116,1) <> ACTIVE.MESSAGE$ THEN _
  1278.         GOTO 1946
  1279.      X$ = MID$(MESSAGE.RECORD$,121,2)
  1280.      IF X$ <> "  " THEN _
  1281.         IF CVI(X$) > USER.SECURITY.LEVEL THEN _
  1282.            GOTO 1945
  1283.      IF ACTION.FLAG THEN _
  1284.         GOTO 1935
  1285. '
  1286. ' ** ALLOW USERS WITH NAMES LONGER THAN 22 CHARS TO RECEIVE PRIVATE MAIL **
  1287. '
  1288. 1920 X$ = MID$(MESSAGE.RECORD$,37,22)
  1289.      IF INSTR(X$,MESSAGE.USER.NAME$) OR _
  1290.         (SYSOP AND INSTR(X$,"SYSOP")) OR _
  1291.         (SYSOP AND INSTR(X$,SYSOP.FULL.NAME$)) THEN _
  1292.         GOTO 1925
  1293.      GOTO 1935
  1294. 1925 A = VAL(MID$(MESSAGE.RECORD$,2,4))
  1295.      IF LOGON.MAIL.NEW THEN _
  1296.         IF A <= LAST.MESSAGE.READ THEN _
  1297.            GOTO 1935
  1298.      IF NOT SHOW.ACTIVE THEN _
  1299.         GOTO 1930
  1300.      MAIL.REPORTED = TRUE
  1301.      FIRST.NEW = (A > LAST.MESSAGE.READ)
  1302.      IF FIRST.NEW THEN _
  1303.         I = 0 : _
  1304.         CALL SKIPLINE (1) : _
  1305.         CALL QTPUT("NEW Mail for YOU (* = Private)",1) _
  1306.      ELSE IF FIRST.OLD THEN _
  1307.              CALL SKIPLINE (1) : _
  1308.              CALL QTPUT ("OLD Mail for YOU (* = Private)",1) : _
  1309.              FIRST.OLD = FALSE
  1310.      SHOW.ACTIVE = NOT FIRST.NEW
  1311. 1930 CALL QTPUT (LEFT$(MESSAGE.RECORD$,5),0)
  1312.      I = I + 1
  1313.      IF I MOD 15 = 0 THEN _
  1314.         CALL SKIPLINE (1)
  1315. 1935 IF INSTR(MID$(MESSAGE.RECORD$,6,31),ACTIVE.USER.NAME$) OR _
  1316.         (SYSOP AND INSTR(MID$(MESSAGE.RECORD$,6,31),"SYSOP")) OR _
  1317.         (SYSOP AND INSTR(MID$(MESSAGE.RECORD$,6,31),SYSOP.FIRST.NAME$ + " " + SYSOP.LAST.NAME$)) THEN _
  1318.         GOTO 1940
  1319.      GOTO 1945
  1320. 1940 IF MESSAGES.FROM.USER < ADIM THEN _
  1321.         MESSAGES.FROM.USER = MESSAGES.FROM.USER + 1 : _
  1322.         B$(MESSAGES.FROM.USER) = LEFT$(MESSAGE.RECORD$,5)
  1323. 1945 ACTIVE.MESSAGES = ACTIVE.MESSAGES + 1
  1324.      M(ACTIVE.MESSAGES,1) = MESSAGE.RECORD
  1325.      M(ACTIVE.MESSAGES,2) = VAL(MID$(MESSAGE.RECORD$,2,4))
  1326. 1946 MESSAGE.RECORD = MESSAGE.RECORD + NUMBER.RECORDS.IN.MESSAGE
  1327.      GOTO 1905
  1328. 1950 IF NOT MAIL.REPORTED THEN _
  1329.         A$ = "Sorry, " + _
  1330.              FIRST.NAME$ + _
  1331.              ", NO " + B$(0) + "MAIL for you" : _
  1332.         GOSUB 12975
  1333.      IF MESSAGES.FROM.USER = 0 OR NOT MESSAGE.REMINDER THEN _
  1334.         GOTO 1961
  1335.      IF ACTION.FLAG THEN _
  1336.         GOTO 1961
  1337.      A$ = "Mail you left"
  1338.      GOSUB 12976
  1339. 1960 FOR I = 1 TO MESSAGES.FROM.USER
  1340.         A$ = B$(I)
  1341.         GOSUB 12978
  1342.         IF I MOD 15 = 0 THEN _
  1343.            CALL SKIPLINE (1)
  1344.      NEXT
  1345.      CALL SKIPLINE (1)
  1346.      CALL QTPUT("Please <K>ill old/unneeded messages",1)
  1347. 1961 REDIM B$(ADIM)
  1348.      IF ACTION.FLAG THEN _
  1349.         ACTION.FLAG = FALSE : _
  1350.         FOR I = 1 TO Q : _
  1351.             B$(I) = A$(I) : _
  1352.             A$(I) = "" : _
  1353.         NEXT
  1354.      CALL SKIPLINE (1)
  1355.      RETURN
  1356. '
  1357. ' ****  E - COMMAND FROM MAIN MENU (ENTER MESSAGE)  ****
  1358. '
  1359. 2000 IF LOW.MESSAGE.NUMBER > 0 AND _
  1360.         ACTIVE.MESSAGES = MAXIMUM.MESSAGES THEN _
  1361.         IF ACTIVE.MESSAGE.FILE$ = MAIN.MESSAGE.FILE$ AND _
  1362.            ACTIVE.MESSAGES = 1 THEN _
  1363.            GOTO 5300 _
  1364.         ELSE A$ = "No room for new messages!  Try tomorrow" : _
  1365.              GOSUB 12975 : _
  1366.              GOTO 3650
  1367. 2006 MESSAGE.PASSWORD$ = ""
  1368.      SYSOP.COMMENT = FALSE
  1369.      IF NOT REPLY THEN _
  1370.         MESSAGE.TO$ = ""
  1371. 2007 IF SYSOP.COMMENT THEN _
  1372.         Z$ = COMMENTS.FILE$ : _
  1373.         FT$ = "comment" _
  1374.      ELSE Z$ = ACTIVE.MESSAGE.FILE$ : _
  1375.           FT$ = "message"
  1376. 2008 IF SYSOP.COMMENT THEN _
  1377.         CALL FINDFREE : _
  1378.         GOTO 2009
  1379.      FREE.SPACE$ = "2000"
  1380.      IF NEXT.MESSAGE.RECORD + 3 >= HIGHEST.MESSAGE.RECORD THEN _
  1381.         FREE.SPACE$ = "1"
  1382. 2009 IF VAL(FREE.SPACE$) < 2000 THEN _
  1383.         A$ = "No room for " + _
  1384.              FT$ : _
  1385.         GOSUB 12979 : _
  1386.         GOTO 3650
  1387. 2010 LINES.IN.MESSAGE = 0
  1388.      COMMPORT.STACK$ = ""
  1389.      L = 0
  1390.      X = 0
  1391.      REDIM A$(ADIM)
  1392.      IF GET.EXT.DESC THEN _
  1393.         GOTO 2100
  1394.      GOSUB 1893
  1395.      IF SYSOP.COMMENT THEN _
  1396.         GOTO 2100
  1397.      IF SYSOP.MESSAGE THEN _
  1398.         SYSOP.MESSAGE = FALSE : _
  1399.         MESSAGE.PASSWORD$ = "^READ^" : _
  1400.         GOTO 2100
  1401.      RECEIVER.RECORD.NUM = 0
  1402. 2020 CALL MSGTO (HIGHEST.USER.RECORD,MESSAGE.TO$,RECEIVER.RECORD.NUM,FOUND)
  1403.      IF REPLY THEN _
  1404.         FOUND = TRUE : _
  1405.         CALL TRIM (MESSAGE.TO$):  _
  1406.         GOTO 2035 _
  1407.      ELSE SUBJECT$ = ""
  1408.      IF MESSAGE.TO$ = "" THEN _
  1409.         RETURN
  1410.      GOSUB 2065
  1411. 2035 CALL MSGPROT (MESSAGE.TO$,FOUND,MESSAGE.PASSWORD$)
  1412.      IF MESSAGE.PASSWORD$ = "" THEN _
  1413.         GOTO 2020
  1414.      GOTO 2100
  1415. '
  1416. ' *****  SET/CHANGE SUBJECT FOR A MESSAGE   ****
  1417. '
  1418. 2065 IF SUBJECT$ <> "" THEN _
  1419.         A$ = "Change SUBJECT from " + _
  1420.              SUBJECT$ + _
  1421.              " to" : _
  1422.         GOSUB 12995 _
  1423.      ELSE A$ = "Subject" : _
  1424.           GOSUB 12998
  1425.      IF LEN(B$) > 25 THEN _
  1426.         A$ = "25 Char. Max" : _
  1427.         GOSUB 12979 : _
  1428.         GOTO 2065
  1429.      IF Q = 0 THEN _
  1430.         IF SUBJECT$ <> "" THEN _
  1431.            RETURN _
  1432.         ELSE GOSUB 2435 : _
  1433.              IF YES THEN _
  1434.                 RETURN 5160 _
  1435.              ELSE GOTO 2065
  1436.      SUBJECT$ = B$
  1437.      CALL ALLCAPS (SUBJECT$)
  1438.      RETURN
  1439. '
  1440. ' *****  ENTER MAIN BODY OF MESSAGE  *****
  1441. '
  1442. 2100 A$ = "Type " + _
  1443.           FT$ + _
  1444.           STR$(MAX.MESSAGE.LINES) + _
  1445.           " lines max" + _
  1446.           PRESS.ENTER$
  1447.      GOSUB 12975
  1448.      GOSUB 3200
  1449. 2125 LINES.IN.MESSAGE = LINES.IN.MESSAGE + 1
  1450. 2127 IF REMOTE.ECHO OR LOCAL.USER THEN _
  1451.         A$ = RIGHT$(STR$(LINES.IN.MESSAGE),2) + _
  1452.              ": " + _
  1453.              A$(LINES.IN.MESSAGE) _
  1454.      ELSE A$ = A$(LINES.IN.MESSAGE)
  1455.      GOSUB 12978
  1456.      CALL LINEEDIT(LINES.IN.MESSAGE,RIGHT.MARGIN + 1)
  1457.      IF WAIT.EXPIRED THEN _
  1458.         GOTO 10590 _
  1459.      ELSE IF SUBROUTINE.PARAMETER = -1 THEN _
  1460.              GOTO 10595
  1461.      CALL FINDFUNC
  1462.      IF SUBROUTINE.PARAMETER < 0 THEN _
  1463.         GOTO 202
  1464.      IF A$(LINES.IN.MESSAGE) = "" THEN _
  1465.         LINES.IN.MESSAGE = LINES.IN.MESSAGE - 1 : _
  1466.         GOTO 2300
  1467. 2140 J = LINES.IN.MESSAGE
  1468.      GOSUB 2200
  1469.      IF X THEN _
  1470.         GOTO 2300
  1471.      GOTO 2125
  1472. 2200 X = 0
  1473.      IF J < (MAX.MESSAGE.LINES - 2) THEN _
  1474.         RETURN
  1475.      A$ = MID$("2 lines leftLast line   Full",12 * (J-(MAX.MESSAGE.LINES - 2)) + 1,12)
  1476.      X = (J > (MAX.MESSAGE.LINES - 1))
  1477. 2210 GOSUB 12979
  1478.      RETURN
  1479. '
  1480. ' *****  FINAL MESSAGE DISPOSITION   *****
  1481. '
  1482. 2300 CALL SKIPLINE (1)
  1483.      IF NOT EXPERT.USER THEN _
  1484.         CALL QTPUT ("A)bort," + LEFT$("B)tch Import,",-13 * (SYSOP OR LOCAL.USER)) + "C)ont,D)el,E)dit,I)nsert,L)ist,M)argin,R)ev subj,S)ave",1)
  1485. 2315 A$ = "Edit Sub-function <A," + _
  1486.           LEFT$("B,",-2 * (SYSOP OR LOCAL.USER)) + _
  1487.           "C,D,E,I,L,M,R,S,?>"
  1488.      CALL SKIPLINE (1)
  1489.      GOSUB 12999
  1490.      IF Q = 0 THEN _
  1491.         GOTO 2315
  1492.      CALL ALLCAPS (B$(1))
  1493.      Z$ = B$(1)
  1494. 2325 IF Q > 1 AND Z$ <> "M" THEN _
  1495.         CALL CHECKINT (B$(Q)) : _
  1496.         IF EC <> 0 THEN _
  1497.            GOTO 2300 _
  1498.         ELSE L = TESTED.INTEGER.VALUE : _
  1499.              GOSUB 3320
  1500. 2330 ON INSTR("ABCDEILMRS?",Z$) GOTO 2400,2335,2332,2500,2600,2800,3000,3100,2440,3400,2345
  1501.      GOTO 2300
  1502. 2332 IF LINES.IN.MESSAGE < 1 THEN _
  1503.         LINES.IN.MESSAGE = 1
  1504.      GOTO 2127
  1505. 2335 X = LINES.IN.MESSAGE
  1506.      CALL MIMPORT (MAX.MESSAGE.LINES,RIGHT.MARGIN,LINES.IN.MESSAGE,A$())
  1507.      IF LINES.IN.MESSAGE > X THEN _
  1508.         GOTO 3000 _
  1509.      ELSE GOTO 2300
  1510. '
  1511. ' *****  DISPLAY MESSAGE SUBCOMMANDS HELP FILE   *****
  1512. '
  1513. 2345 FILE.NAME$ = HELP$(4)
  1514.      GOSUB 1790
  1515.      GOTO 2315
  1516. 2350 CALL FINDIT (MAIN.PUI$)
  1517.      CUSTOM.PUI = OK
  1518.      IF OK THEN _
  1519.         CURRENT.PUI$ = MAIN.PUI$ _
  1520.      ELSE CURRENT.PUI$ = ""
  1521.      RETURN
  1522. '
  1523. ' ****  ABORT MESSAGE   ****
  1524. '
  1525. 2400 GOSUB 2435
  1526.      IF NOT YES THEN _
  1527.         GOTO 2300
  1528. 2430 A$ = "Aborted"
  1529.      GOSUB 12975
  1530.      GOTO 3650
  1531. 2435 A$ = "Abort " + _
  1532.           FT$ + _
  1533.           " (Y/[N])"
  1534.      GOSUB 12995
  1535.      RETURN
  1536. '
  1537. ' *****  CHANGE SUBJECT OF A MESSAGE  *****
  1538. '
  1539. 2440 GOSUB 2065
  1540.      GOTO 2300
  1541. '
  1542. ' *****  DELETE MESSAGE LINE  *****
  1543. '
  1544. 2500 CALL SKIPLINE (1)
  1545.      IF Q = 1 THEN _
  1546.         A$ = "Delete " : _
  1547.         GOSUB 12978 : _
  1548.         GOSUB 3300
  1549. 2520 A$ = "Line #" + _
  1550.           STR$(L)
  1551.      GOSUB 12979
  1552.      A$ = A$(L)
  1553.      GOSUB 12977
  1554.      A$ = "Delete this line (Y/[N])"
  1555.      GOSUB 12995
  1556.      IF NOT YES THEN _
  1557.         A$ = "NOT Deleted" : _
  1558.         GOSUB 12979 : _
  1559.         GOTO 2300
  1560. 2550 LINES.IN.MESSAGE = LINES.IN.MESSAGE - 1
  1561.      FOR X = L TO LINES.IN.MESSAGE
  1562.         A$(X) = A$(X + 1)
  1563.      NEXT
  1564.      A$(LINES.IN.MESSAGE + 1) = ""
  1565.      A$ = "Deleted Line #" + _
  1566.           STR$(L)
  1567.      GOSUB 12979
  1568.      GOTO 2300
  1569. '
  1570. ' ****  EDIT MESSAGE LINE  ****
  1571. '
  1572. 2600 CALL SKIPLINE (1)
  1573.      IF Q = 1 THEN _
  1574.         GOSUB 3300
  1575.      CALL EDITALINE (L)
  1576.      IF SUBROUTINE.PARAMETER < 0 THEN _
  1577.         GOTO 202
  1578.      GOTO 2300
  1579. 2800 IF LINES.IN.MESSAGE >= MAX.MESSAGE.LINES AND NOT SYSOP THEN _
  1580.         A$ = "Message full" : _
  1581.         GOSUB 12979 : _
  1582.         GOTO 2920
  1583. 2820 CALL SKIPLINE (1)
  1584.      IF Q = 1 THEN _
  1585.         A$ = "Before " : _
  1586.         GOSUB 12978 : _
  1587.         GOSUB 3300
  1588. 2830 LL = LINES.IN.MESSAGE
  1589.      K = LINES.IN.MESSAGE - L
  1590.      FOR X = L TO LINES.IN.MESSAGE
  1591.         B$(X + 1 - L) = A$(X)
  1592.         A$(X) = ""
  1593.      NEXT
  1594.      LINES.IN.MESSAGE = L
  1595. 2840 A$ = RIGHT$(STR$(LINES.IN.MESSAGE),2) + _
  1596.           ": "
  1597.      GOSUB 12978
  1598.      CALL LINEEDIT(LINES.IN.MESSAGE,RIGHT.MARGIN + 1)
  1599.      IF A$(LINES.IN.MESSAGE) = "" THEN _
  1600.         GOTO 2920
  1601. 2870 LINES.IN.MESSAGE = LINES.IN.MESSAGE + 1
  1602.      J = LINES.IN.MESSAGE + K - 1
  1603.      GOSUB 2200
  1604.      IF NOT X THEN _
  1605.         GOTO 2840
  1606. 2920 FOR X = 1 TO K + 1
  1607.         A$(LINES.IN.MESSAGE + X - 1) = B$(X)
  1608.      NEXT
  1609.      REDIM B$(ADIM)
  1610.      LINES.IN.MESSAGE = LL + LINES.IN.MESSAGE - L
  1611.      GOTO 2300
  1612. '
  1613. ' *****  LIST MESSAGE CONTENTS   *****
  1614. '
  1615. 3000 STOP.INTERRUPTS = FALSE
  1616.      CALL SKIPLINE (1)
  1617.      IF Q = 1 THEN _
  1618.         L = 1 : _
  1619.         A$ = FG.3$ + "To: " + _
  1620.              MESSAGE.TO$ + _
  1621.              FG.4$ + " Re: " + _
  1622.              SUBJECT$ + EMPHASIZE.OFF$ : _
  1623.         GOSUB 12979 : _
  1624.         CALL QTPUT (MID$("    ",1,-4 * (NOT REMOTE.ECHO)),0) : _
  1625.         GOSUB 3200
  1626. 3020 FOR X = L TO LINES.IN.MESSAGE
  1627.         CALL ASKMORE ("",TRUE,TRUE,XX,FALSE)
  1628.         IF NO OR RET THEN _
  1629.            X = LINES.IN.MESSAGE + 1 _
  1630.         ELSE A$ = RIGHT$(STR$(X),2) + _
  1631.                   ": " + _
  1632.                   A$(X) : _
  1633.              GOSUB 12979
  1634.      NEXT
  1635.      GOTO 2300
  1636. '
  1637. ' *****  CHANGE MARGIN WIDTH   *****
  1638. '
  1639. 3100 CALL SKIPLINE (1)
  1640.      IF Q <> 1 THEN _
  1641.         B$(1) = B$(Q) : _
  1642.         GOTO 3130
  1643. 3115 A$ = "SET Right-Margin from" + _
  1644.           STR$(RIGHT.MARGIN) + _
  1645.           " TO (8...72)"
  1646.      GOSUB 12995
  1647.      IF LEN(B$(1)) > 2 THEN _
  1648.         GOTO 3140
  1649. 3130 X = VAL(B$(1))
  1650.      IF X > 7 AND X < 73 THEN _
  1651.         RIGHT.MARGIN = X : _
  1652.         A$ = "Margin now" + _
  1653.              STR$(RIGHT.MARGIN) : _
  1654.         GOTO 3150
  1655. 3140 A$ = "Invalid - Margin UNCHANGED"
  1656. 3150 GOSUB 12979
  1657.      IF UTILITY.MARGIN.CHANGE THEN _
  1658.         RETURN
  1659.      GOTO 2300
  1660. 3200 A$ = "[" + _
  1661.           STRING$(RIGHT.MARGIN - 2,45) + _
  1662.           "]"
  1663.      IF REMOTE.ECHO OR LOCAL.USER THEN _
  1664.         A$ = "    " + _
  1665.              A$
  1666.      GOSUB 12975
  1667.      RETURN
  1668. 3300 A$ = "Line #"
  1669.      GOSUB 12995
  1670.      IF LEN(B$(1)) > 3 THEN _
  1671.         GOTO 3300
  1672.      L = VAL(B$(1))
  1673. 3320 IF L >= 1 AND L <= LINES.IN.MESSAGE THEN _
  1674.         RETURN
  1675. 3330 IF Q = 0 THEN _
  1676.         RETURN 2300
  1677. 3340 A$ = "No such line"
  1678.      GOSUB 12979
  1679.      RETURN 2300
  1680. '
  1681. ' ****  SAVE MESSAGE   ****
  1682. '
  1683. 3400 IF GET.EXT.DESC THEN _
  1684.         SYSOP.COMMENT = FALSE : _
  1685.         RETURN
  1686.      IF SYSOP.COMMENT THEN _
  1687.         SYSOP.COMMENT = FALSE : _
  1688.         GOTO 1850
  1689. 3405 GOSUB 4910
  1690.      MESSAGE.RECORD.SAVE$ = MESSAGE.RECORD$
  1691.      A$ = "Adding new msg #" + _
  1692.           STR$(HIGH.MESSAGE.NUMBER + 1)
  1693.      IF NOT LOCAL.USER THEN _
  1694.         CALL UPDTCALR (A$,1)
  1695.      GOSUB 12978
  1696.      SL = 0
  1697.      N$ = ""
  1698.      IF LOW.MESSAGE.NUMBER = 0 THEN _
  1699.         LOW.MESSAGE.NUMBER = 1 : _
  1700.         HIGH.MESSAGE.NUMBER = 1 : _
  1701.         GOTO 3410
  1702.      HIGH.MESSAGE.NUMBER = HIGH.MESSAGE.NUMBER + 1
  1703. 3410 ACTIVE.MESSAGES = ACTIVE.MESSAGES + 1
  1704.      MESSAGE.NUMBER$ = STR$(HIGH.MESSAGE.NUMBER) + _
  1705.                        SPACE$(5 - LEN(STR$(HIGH.MESSAGE.NUMBER)))
  1706.      IF MESSAGE.PASSWORD$ = "^READ^" THEN _
  1707.         MID$(MESSAGE.NUMBER$,1,1) = "*" : _
  1708.         SSS = PRIVATE.READ.SEC _
  1709.      ELSE SSS = PUBLIC.READ.SEC
  1710. 3460 MESSAGE.FROM$ = ACTIVE.USER.NAME$ + _
  1711.                      SPACE$(31 - LEN(ACTIVE.USER.NAME$))
  1712.      MESSAGE.TO$ = MESSAGE.TO$ + _
  1713.                    SPACE$(31 - LEN(MESSAGE.TO$))
  1714.      MID$(MESSAGE.TO$,23,8) = TIME$
  1715.      SUBJECT$ = SUBJECT$ + _
  1716.                 SPACE$(25 - LEN(SUBJECT$))
  1717.      MESSAGE.PASSWORD$ = MESSAGE.PASSWORD$ + _
  1718.                          SPACE$(15 - LEN(MESSAGE.PASSWORD$))
  1719.      FOR J = 1 TO LINES.IN.MESSAGE
  1720.         A$(J) = A$(J) + _
  1721.                 CHR$(227)
  1722.         SL = SL + LEN(A$(J))
  1723.      NEXT
  1724.      IF SL MOD 128 = 0 THEN _
  1725.         N$ = STR$(SL \ 128 + 1) _
  1726.      ELSE N$ = STR$(SL \ 128 + 2)
  1727. 3530 GET 1,NEXT.MESSAGE.RECORD
  1728.      M(ACTIVE.MESSAGES,1) = NEXT.MESSAGE.RECORD
  1729.      M(ACTIVE.MESSAGES,2) = HIGH.MESSAGE.NUMBER
  1730.      LSET MESSAGE.RECORD$ = MESSAGE.NUMBER$ + _
  1731.                             MESSAGE.FROM$ + _
  1732.                             MESSAGE.TO$ + _
  1733.                             CURRENT.DATE$ + _
  1734.                             SUBJECT$ + _
  1735.                             MESSAGE.PASSWORD$ + _
  1736.                             ACTIVE.MESSAGE$ + _
  1737.                             N$ + _
  1738.                             SPACE$(4 - LEN(N$)) + _
  1739.                             MKI$(SSS)
  1740.      PUT 1,NEXT.MESSAGE.RECORD
  1741.      NEXT.MESSAGE.RECORD = NEXT.MESSAGE.RECORD + VAL(N$)
  1742.      N$ = ""
  1743.      NUM.DOTS = 0
  1744.      FOR J = 1 TO LINES.IN.MESSAGE
  1745.         CALL MARKTIME (NUM.DOTS)
  1746.         N$ = N$ + _
  1747.              A$(J)
  1748.         IF LEN(N$) > 127 THEN _
  1749.            LSET MESSAGE.RECORD$ = N$ : _
  1750.            PUT 1 : _
  1751.            N$ = MID$(N$,129)
  1752. 3630 NEXT
  1753.      IF LEN(N$) > 0 THEN _
  1754.         LSET MESSAGE.RECORD$ = N$ : _
  1755.         PUT 1
  1756.      REDIM A$(ADIM)
  1757. 3640 CALL SKIPLINE (1)
  1758.      LSET MESSAGE.RECORD$ = MESSAGE.RECORD.SAVE$
  1759.      GOSUB 24000
  1760.      GOSUB 12985
  1761. ' ---[ notify receiver that has new mail waiting ]---
  1762.      IF RECEIVER.RECORD.NUM > 0 THEN _
  1763.         SUIX = USER.FILE.INDEX : _
  1764.         USER.RECORD.HOLD$ = USER.RECORD$ : _
  1765.         USER.FILE.INDEX = RECEIVER.RECORD.NUM : _
  1766.         GOSUB 12989 : _
  1767.         GET 5, RECEIVER.RECORD.NUM : _
  1768.         X = CVI(MID$(USER.RECORD$,57,2)) : _
  1769.         MID$(USER.RECORD$,57,2) = MKI$(X OR 512) : _
  1770.         PUT 5, RECEIVER.RECORD.NUM : _
  1771.         GOSUB 12991 : _
  1772.         USER.FILE.INDEX = SUIX : _
  1773.         LSET USER.RECORD$ = USER.RECORD.HOLD$ : _
  1774.         CALL QTPUT ("Receiver will be notified of new mail",1) : _
  1775.         RECEIVER.RECORD.NUM = 0
  1776. 3650 IF REPLY THEN _
  1777.         REPLY = FALSE : _
  1778.         GOTO 5344
  1779.      IF GET.EXT.DESC THEN _
  1780.         LINES.IN.MESSAGE = 0 : _
  1781.         RETURN
  1782.      RETURN 1200
  1783. '
  1784. ' ****  K - COMMAND FROM MAIN MENU (KILL MESSAGE)  ****
  1785. '
  1786. 3900 KILL.MESSAGE = FALSE
  1787.      CALL SKIPLINE (1)
  1788.      IF Q <> 1 THEN _
  1789.         TEMP = 2 : _
  1790.         GOTO 3935
  1791. 3930 A$ = "Msg #(s) to Kill" + PRESS.ENTER.EXPERT$
  1792.      GOSUB 12995
  1793.      IF Q = 0 THEN _
  1794.         RETURN
  1795.      GOSUB 1893
  1796.      TEMP = 1
  1797. 3935 CALL CHECKINT (B$(TEMP))
  1798.      IF EC <> 0 THEN _
  1799.         GOTO 3930
  1800.      MESSAGE.TO.KILL = TESTED.INTEGER.VALUE
  1801. 3950 GOSUB 5344
  1802.      CALL KILLMSG (MESSAGE.TO.KILL,ACTIVE.MESSAGES)
  1803. 4040 IF TEMP < Q THEN _
  1804.         TEMP = TEMP + 1 : _
  1805.         GOTO 3935
  1806.      IF KILL.MESSAGE THEN _
  1807.         RETURN
  1808.      GOTO 3930
  1809. '
  1810. ' ****  Sysop Available toggle
  1811. '
  1812. 4130  SUBROUTINE.PARAMETER = -8
  1813.       CALL FINDFUNC
  1814.       SUBROUTINE.PARAMETER = 0
  1815.       RETURN
  1816. '
  1817. ' ****  X)pert Toggle
  1818. '
  1819. 4240 CALL TOGGLE(9)
  1820.      RETURN
  1821. '
  1822. ' ****  T)opic - QUICK SCAN MESSAGES  ****
  1823. '
  1824. 4320 QUICK.SCAN.MESSAGES = TRUE
  1825.      READ.MESSAGES = FALSE
  1826.      SCAN.MESSAGES = FALSE
  1827.      MSG.START = 76
  1828.      MSG.END = 100
  1829.      SEC.INDEX= 0
  1830.      GOTO 4350
  1831. '
  1832. ' ****  R - COMMAND FROM MAIN MENU (READ MESSAGES)  ****                             *
  1833. '
  1834. 4330 QUICK.SCAN.MESSAGES = FALSE
  1835.      READ.MESSAGES = TRUE
  1836.      HIGHLITE.REC = -1
  1837.      SCAN.MESSAGES = FALSE
  1838.      MSG.START = 6
  1839.      MSG.END = 100
  1840.      IF LOCAL.USER.MODE OR NOT LOCAL.USER THEN _
  1841.         IF READ.MSG.IN$ <> ACTIVE.MESSAGE.FILE$ THEN _
  1842.            READ.MSG.IN$ = ACTIVE.MESSAGE.FILE$ : _
  1843.            CALL UPDTCALR ("Read Messages in " + READ.MSG.IN$,1)
  1844.      GOSUB 1300
  1845.      GOTO 4350
  1846. '
  1847. ' ****  S - COMMAND FROM MAIN MENU (SCAN MESSAGE HEADERS)  ****
  1848. '
  1849. 4340 IF Q < 2 THEN _
  1850.         GOSUB 1300
  1851. 4345 QUICK.SCAN.MESSAGES = FALSE
  1852.      READ.MESSAGES = FALSE
  1853.      SCAN.MESSAGES = TRUE
  1854.      MSG.START = 6
  1855.      MSG.END = 100
  1856.      SEC.INDEX = 0
  1857. '
  1858. ' ** MESSAGE READ MAINLINE (QUICK SCAN, READ & SCAN) ALL USE THIS ROUTINE **
  1859. '
  1860. 4350 SEARCH.HEADER$ = ""
  1861. 4352 SEARCH.STRING$ = ""
  1862.      GOSUB 1893
  1863.      GOSUB 5344
  1864.      Z$ = ""
  1865.      FOR I = 2 TO Q
  1866.         IF INSTR("Ss*",B$(I)) > 0 THEN _
  1867.            B$(I) = MID$(STR$(LAST.MESSAGE.READ+1),2) + "+"
  1868.      NEXT
  1869. 4360 LG$(11) = Z$
  1870.      MESSAGES.SELECTED.INDEX = 1
  1871.      NUMBER.MESSAGES.SELECTED = Q
  1872.      ADDRESSED.TO.USER = FALSE
  1873.      TO.REQUESTED = FALSE
  1874.      FROM.REQUESTED = FALSE
  1875.      IF PAGE.LENGTH < 1 THEN _
  1876.         NON.STOP = TRUE
  1877. 4370 MESSAGES.SELECTED.INDEX = MESSAGES.SELECTED.INDEX  + 1
  1878. 4371 IF MESSAGES.SELECTED.INDEX <= NUMBER.MESSAGES.SELECTED THEN _
  1879.         CALL CHECKINT (B$(MESSAGES.SELECTED.INDEX)) : _
  1880.         IF EC <> 0 THEN _
  1881.            EL = 4371 : _
  1882.            GOTO 13000 _
  1883.         ELSE CURRENT.MESSAGE = TESTED.INTEGER.VALUE : _
  1884.              GOTO 4415
  1885. 4380 NON.STOP = FALSE
  1886.      A1$ = "Msg #" + _
  1887.            STR$(LOW.MESSAGE.NUMBER) + _
  1888.            "-" + _
  1889.            MID$(STR$(M(ACTIVE.MESSAGES,2)),2) + _
  1890.            " (H)elp, S)ince"
  1891.      IF ADDRESSED.TO.USER OR TO.REQUESTED OR FROM.REQUESTED THEN _
  1892.         Y$ = LEFT$("TO",-2*(TO.REQUESTED OR ADDRESSED.TO.USER)) + _
  1893.              LEFT$("/",-ADDRESSED.TO.USER) + _
  1894.              LEFT$("FROM",-4*(FROM.REQUESTED OR ADDRESSED.TO.USER)) : _
  1895.         CALL QTPUT ("Only msgs "+Y$+" you.  Read from what msg # (e.g. 1+,4010-)",1) _
  1896.      ELSE A1$ = A1$ + _
  1897.                ", T)o,F)rom,M)ine"
  1898.      IF SEARCH.STRING$ = "" THEN _
  1899.         A1$ = A1$ + _
  1900.              ", or text" _
  1901.      ELSE CALL QTPUT ("Only msgs with text " + SEARCH.STRING$ + ".  Read from what msg #( e.g. 1+,4010-)",1)
  1902. 4390 A$ = A1$ + ", [Q]uit)"
  1903. 4400 GOSUB 12995
  1904.      IF Q = 0 THEN _
  1905.         RETURN
  1906. 4402 IF LEN(B$(1)) = 1 THEN _
  1907.         IF INSTR("Qq",B$) THEN _
  1908.            RETURN _
  1909.         ELSE IF INSTR("Hh",LEFT$(B$(1),1)) THEN _
  1910.                 FILE.NAME$ = HELP.PATH$ + "MR" + HELP.EXTENSION$ : _
  1911.                 GOSUB 1790 : _
  1912.                 GOTO 4390
  1913.      MESSAGES.SELECTED.INDEX = 0
  1914.      NUMBER.MESSAGES.SELECTED = Q
  1915.      GOTO 4370
  1916. 4415 FORWARD = FALSE
  1917.      REVERSE = FALSE
  1918.      IF LEN(B$(MESSAGES.SELECTED.INDEX)) = 1 THEN _
  1919.         IF INSTR("Ss*",B$(MESSAGES.SELECTED.INDEX)) > 0 THEN _
  1920.            CURRENT.MESSAGE = LAST.MESSAGE.READ + 1 : _
  1921.            FORWARD = TRUE : _
  1922.            GOTO 4430
  1923. 4416 IF INSTR("Mm",B$(MESSAGES.SELECTED.INDEX)) THEN _
  1924.         ADDRESSED.TO.USER = TRUE : _
  1925.         GOTO 4370
  1926.      A = INSTR("FfTt",B$(MESSAGES.SELECTED.INDEX))
  1927.      IF A > 0 THEN _
  1928.         TO.REQUESTED = (A > 2) : _
  1929.         FROM.REQUESTED = (A < 3) : _
  1930.         GOTO 4370
  1931.      IF CURRENT.MESSAGE = 0 THEN _
  1932.         IF SEARCH.HEADER$ <> "" THEN _
  1933.            GOTO 4370 _
  1934.         ELSE SEARCH.STRING$ = B$(MESSAGES.SELECTED.INDEX) : _
  1935.              CALL ALLCAPS (SEARCH.STRING$) : _
  1936.              CALL REMOVE (SEARCH.STRING$,CHR$(34) + CHR$(39)) : _
  1937.              SEARCH.HEADER$ = SEARCH.STRING$ : _
  1938.              GOTO 4370
  1939.      CALL SKIPLINE (1)
  1940. 4430 IF RIGHT$(B$(MESSAGES.SELECTED.INDEX),1) = "+" THEN _
  1941.         FORWARD = TRUE
  1942.      IF RIGHT$(B$(MESSAGES.SELECTED.INDEX),1) = "-" THEN _
  1943.         REVERSE = TRUE : _
  1944.         GOTO 4490
  1945. 4450 MESSAGE.DIM.INDEX = 1
  1946. 4452 IF MESSAGE.DIM.INDEX > ACTIVE.MESSAGES THEN _
  1947.         GOTO 4515
  1948.      IF READ.MESSAGES AND _
  1949.         M(MESSAGE.DIM.INDEX,2) = CURRENT.MESSAGE THEN _
  1950.         GOTO 4520
  1951. 4470 IF ((READ.MESSAGES AND FORWARD) OR _
  1952.         QUICK.SCAN.MESSAGES OR SCAN.MESSAGES) AND _
  1953.         M(MESSAGE.DIM.INDEX,2) >= CURRENT.MESSAGE THEN _
  1954.         GOTO 4520
  1955. 4480 MESSAGE.DIM.INDEX = MESSAGE.DIM.INDEX + 1
  1956.      GOTO 4452
  1957. 4490 MESSAGE.DIM.INDEX = ACTIVE.MESSAGES
  1958. 4492 IF MESSAGE.DIM.INDEX < 1 THEN _
  1959.         GOTO 4515
  1960.      IF M(MESSAGE.DIM.INDEX,2) <= CURRENT.MESSAGE THEN _
  1961.         GOTO 4540
  1962. 4510 MESSAGE.DIM.INDEX = MESSAGE.DIM.INDEX - 1
  1963.      GOTO 4492
  1964. 4515 A$ = "No such msg #" + _
  1965.           STR$(CURRENT.MESSAGE)
  1966.      GOSUB 12979
  1967.      GOTO 4370
  1968. 4520 ENDING.MESSAGE.INDEX = MESSAGE.DIM.INDEX
  1969.      IF READ.MESSAGES AND NOT FORWARD THEN _
  1970.         GOTO 4560
  1971. 4530 STARTING.MESSAGE.INDEX = MESSAGE.DIM.INDEX
  1972.      ENDING.MESSAGE.INDEX = ACTIVE.MESSAGES
  1973.      SO = 1
  1974.      GOTO 4550
  1975. 4540 STARTING.MESSAGE.INDEX = MESSAGE.DIM.INDEX
  1976.      ENDING.MESSAGE.INDEX = 1
  1977.      SO = -1
  1978. 4550 XXX = ENDING.MESSAGE.INDEX + SO
  1979.      MESSAGE.DIM.INDEX = STARTING.MESSAGE.INDEX
  1980. 4552 IF MESSAGE.DIM.INDEX = XXX THEN _
  1981.         GOTO 4637
  1982. 4560   CURRENT.HEADER = M(MESSAGE.DIM.INDEX,1)
  1983.        IF CURRENT.HEADER < 1 THEN _
  1984.           GOTO 4515
  1985.        GET 1,CURRENT.HEADER
  1986.        PASSWORD.FAILED = 0
  1987.        UH = 0
  1988.        Z$ = MID$(MESSAGE.RECORD$,101,15)
  1989.        X = 1
  1990. 4561   X$ = MID$(MESSAGE.RECORD$,X)
  1991.        FF = INSTR(X$,MESSAGE.USER.NAME$)
  1992.        IF FF > 0 THEN _
  1993.           X = LEN(MESSAGE.USER.NAME$) _
  1994.        ELSE IF SYSOP THEN _
  1995.                FF = INSTR(X$,"SYSOP") : _
  1996.                X = 5 : _
  1997.                IF FF = 0 THEN _
  1998.                   X = LEN(SYSOP.FULL.NAME$) : _
  1999.                   FF = INSTR(X$,SYSOP.FULL.NAME$)
  2000.        IF FF > 0 THEN _
  2001.           X = X + FF : _
  2002.           IF (FF < 7 OR MID$(MESSAGE.RECORD$,FF - 1,1) = " ") AND (X > 58 OR MID$(MESSAGE.RECORD$,X,1) = " ") THEN _
  2003.              UH = TRUE _
  2004.           ELSE IF FF < 37 THEN _
  2005.                   X = 37 : _
  2006.                   GOTO 4561
  2007.        MSG.TO.CALLER = (UH AND (FF = 37)) OR _
  2008.                        (MID$(MESSAGE.RECORD$,37,4) = "ALL ")
  2009.        MSG.FROM.CALLER = UH AND (FF = 6)
  2010. 4562   IF NOT SYSOP THEN _
  2011.           IF INSTR(MESSAGE.RECORD$,"^READ^") > 0 AND NOT UH THEN _
  2012.              PASSWORD.FAILED = TRUE : _
  2013.              IF FORWARD OR REVERSE THEN _
  2014.                 GOTO 4635
  2015. 4563   CURRENT.MESSAGE = VAL(MID$(MESSAGE.RECORD$,2,4))
  2016.        IF TO.REQUESTED THEN _
  2017.           IF NOT MSG.TO.CALLER THEN _
  2018.              GOTO 4625
  2019.        IF FROM.REQUESTED THEN _
  2020.           IF NOT MSG.FROM.CALLER THEN _
  2021.              GOTO 4625
  2022.        IF ADDRESSED.TO.USER AND NOT UH THEN _
  2023.           GOTO 4625
  2024.        X$ = MID$(MESSAGE.RECORD$,121,2)
  2025.        IF X$ = "  " THEN _
  2026.           MESSAGE.SECURITY = MINIMUM.LOGON.SECURITY _
  2027.        ELSE MESSAGE.SECURITY = CVI(X$)
  2028.        IF USER.SECURITY.LEVEL < MESSAGE.SECURITY THEN _
  2029.           GOTO 4625
  2030. 4580   IF INSTR(MESSAGE.RECORD$,LG$(11)) = 0 THEN _
  2031.           GOTO 4635
  2032. 4581   IF MID$(MESSAGE.RECORD$,116,1) = DELETED.MESSAGE$ THEN _
  2033.           GOTO 4630
  2034.        JUST.SEARCHING = FALSE
  2035.        IF SEARCH.HEADER$ <> "" THEN _
  2036.           FF = INSTR(MESSAGE.RECORD$,SEARCH.HEADER$) : _
  2037.           IF FF >= MSG.START AND FF <= MSG.END THEN _
  2038.              HIGHLITE.POS = FF : _
  2039.              GOTO 4582 _
  2040.           ELSE IF READ.MESSAGES AND SEARCH.STRING$ <> "" THEN _
  2041.                   JUST.SEARCHING = TRUE : _
  2042.                   GOTO 4582 _
  2043.                ELSE GOTO 4625
  2044. 4582   PG = FALSE
  2045.        IF MID$(Z$,1,1) = "!" THEN _
  2046.           IF NOT SYSOP THEN _
  2047.              PG = TRUE : _
  2048.              PASSWORD.SAVE$ = MID$(Z$,2) + _
  2049.                               " " : _
  2050.              ATTEMPTS.ALLOWED = 0 : _
  2051.              SUBROUTINE.PARAMETER = 1 : _
  2052.              CALL PASSWRD
  2053. 4584   IF PASSWORD.FAILED AND _
  2054.           (QUICK.SCAN.MESSAGES OR (SCAN.MESSAGES AND NOT PG)) THEN _
  2055.           GOTO 4635
  2056. 4585   IF PASSWORD.FAILED THEN _
  2057.           IF PG THEN _
  2058.              SJ$ = "<PASSWORD>" _
  2059.           ELSE SJ$ = "<PROTECTED>" _
  2060.        ELSE SJ$ = MID$(MESSAGE.RECORD$,76,25)
  2061. 4590   IF QUICK.SCAN.MESSAGES THEN _
  2062.           A$ = LEFT$(MESSAGE.RECORD$,5) + _
  2063.                " " + _
  2064.                LEFT$(SJ$,19) + _
  2065.                " " : _
  2066.           CALL CHKCOLOR (A$,SEARCH.HEADER$,EMPHASIZE.OFF$) : _
  2067.           GOSUB 12978 : _
  2068.           SEC.INDEX = SEC.INDEX + 1 : _
  2069.           IF SEC.INDEX = 3 THEN _
  2070.              SEC.INDEX = 0 : _
  2071.              CALL SKIPLINE (1) : _
  2072.              GOTO 4630  _
  2073.           ELSE GOTO 4630
  2074. 4600   IF SCAN.MESSAGES THEN _
  2075.           GOSUB 8020 : _
  2076.           GOTO 4630
  2077.        IF NOT JUST.SEARCHING THEN _
  2078.           GOSUB 8000
  2079.        IF RET THEN _
  2080.           GOTO 4630
  2081.        IF M(MESSAGE.DIM.INDEX,2) > LAST.MESSAGE.READ THEN _
  2082.           MAIL.WAITING = FALSE : _
  2083.           LAST.MESSAGE.READ = M(MESSAGE.DIM.INDEX,2)
  2084.        CAN.CHG.SEC = (USER.SECURITY.LEVEL => SEC.CHANGE.MSG)
  2085.        IF EXPERT.USER THEN _
  2086.           A1$ = ",R,T,=,+,-" + _
  2087.                 MID$(",K",1,- (UH OR SYSOP) * 2) + _
  2088.                 MID$(",S",1, - CAN.CHG.SEC * 2) _
  2089.        ELSE A1$ = ",R)eply,T)hread,=)reread,+,-" + _
  2090.                   MID$(",K)ill",1, - (UH OR SYSOP) * 7) + _
  2091.                   MID$(",S)ec chg",1, - CAN.CHG.SEC * 12)
  2092.        TURBO.KEY = -TURBO.KEY.USER
  2093.        IF JUST.SEARCHING OR NOT JUST.REPLIED THEN _
  2094.           GOTO 4610
  2095.        JUST.REPLIED = FALSE
  2096.        TURBO.KEY = -TURBO.KEY.USER
  2097.        CALL ASKMORE (A1$,TRUE,FALSE,MESSAGES.SELECTED.INDEX,FALSE)
  2098.        CALL SKIPLINE (1)
  2099.        IF NO THEN _
  2100.           RETURN
  2101.        CALL ALLCAPS (B$)
  2102.        REPLY = (REPLY OR B$ = "R")
  2103.        IF B$ <> "=" THEN _
  2104.           GOTO 4618
  2105.        CALL SKIPLINE (1)
  2106. 4610   IF NOT PASSWORD.FAILED THEN _
  2107.           GOTO 4613
  2108.        IF PG THEN _
  2109.           ATTEMPTS.ALLOWED = 2 : _
  2110.           SUBROUTINE.PARAMETER = 2 : _
  2111.           CALL PASSWRD
  2112. 4611   IF PASSWORD.FAILED THEN _
  2113.           GOTO 4625
  2114. 4613   GOSUB 9000
  2115.        IF JUST.SEARCHING THEN _
  2116.           GOTO 4625
  2117.        IF MESSAGES.SELECTED.INDEX > NUMBER.MESSAGES.SELECTED THEN _
  2118.           GOTO 4650
  2119.        CALL SKIPLINE (1)
  2120. 4614   GOSUB 41000
  2121.        KILL.MESSAGE = FALSE
  2122.        REPLY = FALSE
  2123.        IF NON.STOP THEN _
  2124.           GOTO 4625
  2125. 4616   TURBO.KEY = -TURBO.KEY.USER
  2126.        CALL ASKMORE (A1$,TRUE,FALSE,XX,FALSE)
  2127.        IF NO THEN _
  2128.           RETURN
  2129.        CALL ALLCAPS(B$(1))
  2130.        REPLY = (REPLY OR B$(1) ="R")
  2131.        IF B$(1) = "=" THEN _
  2132.           CALL SKIPLINE (1) : _
  2133.           GOTO 4560
  2134. '
  2135. ' ****  CHECK FOR CHANGE SECURITY  ****
  2136. '
  2137. 4618  IF B$(1) = "S" AND CAN.CHG.SEC THEN _
  2138.          GOSUB 4665
  2139.       IF B$(1) = "T" THEN _
  2140.          CALL SETTHREAD (CURRENT.MESSAGE, SUBJECT$) : _
  2141.          IF Q > 0 THEN _
  2142.             SEARCH.HEADER$ = B$(2) : _
  2143.             CALL REMOVE (SEARCH.HEADER$,CHR$(34)+CHR$(39)) : _
  2144.             GOTO 4352
  2145.       A = INSTR(" +-",B$(1))
  2146.       IF A > 1 THEN _
  2147.          CURRENT.MESSAGE = CURRENT.MESSAGE + 5 - 2 * A : _
  2148.          SEARCH.STRING$ = "" : _
  2149.          GOTO 4430
  2150. '
  2151. ' ****  KILL CURRENT MESSAGE  ****
  2152. '
  2153.       IF KILL.MESSAGE AND (UH OR SYSOP) THEN _
  2154.          IF USER.SECURITY.LEVEL >= OPT.SEC(9) THEN _
  2155.             CALL PUTMATTR : _
  2156.             MESSAGE.TO.KILL = CURRENT.MESSAGE : _
  2157.             TEMP = Q : _
  2158.             GOSUB 3950 : _
  2159.             CALL GETMATTR : _
  2160.             GOTO 4625 _
  2161.          ELSE VIOLATION$ = "MORE KILL" : _
  2162.               GOSUB 1380 : _
  2163.               GOTO 4625
  2164. '
  2165. ' ****  REPLY TO CURRENT MESSAGE  ****
  2166. '
  2167. 4620   IF NOT REPLY THEN _
  2168.           GOTO 4625
  2169. 4621   IF USER.SECURITY.LEVEL < OPT.SEC(5) THEN _
  2170.           VIOLATION$ = "MORE RE" : _
  2171.           GOSUB 1380 : _
  2172.           REPLY = FALSE : _
  2173.           GOTO 4625
  2174.        IF LEFT$(SUBJECT$,3) <> "(R)" THEN _
  2175.           SUBJECT$ = "(R)" + _
  2176.                      LEFT$(SUBJECT$,22)
  2177. 4622   MESSAGE.TO$ = MESSAGE.FROM$
  2178.        CALL TRIM (MESSAGE.TO$)
  2179.        MESSAGE.FROM$ = ACTIVE.USER.NAME$
  2180.        CALL PUTMATTR
  2181.        GOSUB 2000
  2182.        REPLY = FALSE
  2183.        JUST.REPLIED = TRUE
  2184.        CALL GETMATTR
  2185.        GOTO 4560
  2186. 4625   IF NOT FORWARD AND NOT REVERSE THEN _
  2187.           GOTO 4370
  2188. 4630   CALL ASKMORE (",#(s) to read",TRUE,TRUE,XX,FALSE)
  2189.        IF Q = 0 THEN _
  2190.           GOTO 4631
  2191.        IF NO THEN _
  2192.           RETURN
  2193.        IF SUBROUTINE.PARAMETER = -1 THEN _
  2194.           RETURN 10595
  2195.        IF RET THEN _
  2196.           RETURN
  2197.        Z$ = B$(1)
  2198.        CALL ALLCAPS (Z$)
  2199.        IF VAL(Z$) > 0 THEN _
  2200.           FOR I = Q TO 1 STEP -1 : _
  2201.              B$(I + 1) = B$(I) : _
  2202.           NEXT : _
  2203.           B$(1) = "R" : _
  2204.           Q = Q + 1 : _
  2205.           RETURN 1235
  2206. 4631   CALL CARRIER
  2207.        IF SUBROUTINE.PARAMETER THEN _
  2208.           RETURN 10595
  2209.        IF RET THEN _
  2210.           RETURN
  2211. 4635 IF SO = 0 THEN _
  2212.         SO = 1
  2213.      MESSAGE.DIM.INDEX = MESSAGE.DIM.INDEX + SO
  2214.      GOTO 4552
  2215. 4637 IF READ.MESSAGES THEN _
  2216.         SEARCH.STRING$ = "" : _
  2217.         SEARCH.HEADER$ = "" : _
  2218.         TO.REQUESTED = FALSE : _
  2219.         FROM.REQUESTED = FALSE : _
  2220.         ADDRESSED.TO.USER = FALSE : _
  2221.         GOTO 4370
  2222. 4650 CALL SKIPLINE (1) 'GOSUB 12979
  2223.      CALL QTPUT ("End Msgs",1)
  2224.      RETURN
  2225. '
  2226. ' ****    - CHANGE MESSAGE READ SECURITY   ****
  2227. '
  2228. 4665 IF Q > 1 THEN _
  2229.         B$ = B$(2) : _
  2230.         GOTO 4666
  2231.      A$ = "Change min sec to read from" + _
  2232.           STR$(MESSAGE.SECURITY) + _
  2233.           " to"
  2234.      GOSUB 12995
  2235.      IF Q=0 THEN _
  2236.         RETURN
  2237. 4666 CALL CHECKINT (B$)
  2238.      IF EC <> 0 THEN _
  2239.         RETURN
  2240.      X = TESTED.INTEGER.VALUE
  2241.      SUBROUTINE.PARAMETER = 3
  2242.      CALL FILELOCK
  2243.      GET 1,CURRENT.HEADER
  2244.      MID$(MESSAGE.RECORD$,121,2) = MKI$(X)
  2245.      PUT 1,CURRENT.HEADER
  2246.      SUBROUTINE.PARAMETER = 4
  2247.      CALL FILELOCK
  2248.      CALL QTPUT ("Security changed to" + STR$(X),1)
  2249.      RETURN
  2250. '
  2251. ' ****  O - COMMAND FROM MAIN MENU (OPERATOR PAGE)   ****
  2252. '
  2253. 4700 IF NOT SYSOP.AVAILABLE THEN _
  2254.         GOTO 4708
  2255. 4705 CALL QTPUT ("Chat. Remote Conversation",1)
  2256.      JJ = VAL(MID$(TIME$,1,2))*100 + VAL(MID$(TIME$,4,2))
  2257.      IF (JJ > START.OFFICE.HOURS AND JJ < END.OFFICE.HOURS) OR SYSOP.ANNOY THEN _
  2258.         GOTO 4710
  2259. 4707 GOTO 4750
  2260. 4708 A$ = "SYSOP in from" + _
  2261.           STR$(START.OFFICE.HOURS) + _
  2262.           " to" + _
  2263.           STR$(END.OFFICE.HOURS) + ","
  2264.      GOSUB 12979
  2265.      GOTO 4755
  2266. 4710 A$ = "Page " + _
  2267.           SYSOP.FIRST.NAME$ + _
  2268.           " ([Y]/N)"
  2269.      CALL SKIPLINE (1)
  2270.      GOSUB 12999
  2271.      IF NO THEN _
  2272.         RETURN
  2273.      PAGE.COUNT = 0
  2274.      A$ = "Paging " + _
  2275.           SYSOP.FIRST.NAME$ + _
  2276.           " now"
  2277.      GOSUB 12978
  2278.      CALL SETABORT (PAGE.TIME.MAX!,30)
  2279. 4730 CALL DELAYIT (1)
  2280. 4735 PAGE.COUNT = PAGE.COUNT + 1
  2281.      IF INKEY$ = ESCAPE$ THEN _
  2282.         GOTO 4765
  2283. 4740 IF PAGE.COUNT MOD 2 THEN _
  2284.         A$ = PAGING.PRINTER.SUPPORT$ + _
  2285.              BELL.RINGER$ : _
  2286.         IF LEN(PAGING.PRINTER.SUPPORT$) = 3 THEN _
  2287.            CALL PRINTIT (CHR$(7)) : _
  2288.            IF EC <> 0 THEN _
  2289.               EL = 4740 : _
  2290.               GOTO 13000
  2291. 4745 GOSUB 12978
  2292.      CALL CHECKTIM (PAGE.TIME.MAX!)
  2293.      ON SUBROUTINE.PARAMETER GOTO 4730,4747
  2294. 4747 GOSUB 12979
  2295. 4750 CALL QTPUT(SYSOP.FIRST.NAME$ + " not responding",1)
  2296. 4755 CALL QTPUT ("Try a msg or comment",1)
  2297.      PAGE.STATUS$ = "Paged!"
  2298.      CALL UPDTCALR ("Operator paged " + LEFT$(TIME$,5),2)
  2299.      RETURN
  2300. 4765 CALL UPDTCALR ("Paged & chatted with Sysop",1)
  2301.      CALL QTPUT ("SYSOP in!  " + _
  2302.           FIRST.NAME$ + _
  2303.           ", this is " + _
  2304.           SYSOP.FIRST.NAME$ + _
  2305.           " go ahead!",1)
  2306.      PAGE.STATUS$ = ""
  2307. 4770 CM = TRUE
  2308.      CALL FINDTIME (TIME.CHAT.STARTED!)
  2309.      SUBROUTINE.PARAMETER = 1
  2310.      CALL LINE25
  2311.      A$(2) = ""
  2312. 4775 CALL LINEEDIT (1,72)
  2313.      IF SUBROUTINE.PARAMETER < -2 THEN _
  2314.         GOTO 202
  2315.      IF KEY.PRESSED$ = ESCAPE$ OR _
  2316.         SUBROUTINE.PARAMETER = -1 THEN _
  2317.         GOTO 4777
  2318.      A$(1) = ""
  2319.      IF A$(2) <> "" THEN _
  2320.         A$ = A$(2) : _
  2321.         A$(1) = A$(2) : _
  2322.         A$(2) = "" _
  2323.      ELSE A$ = ""
  2324.      GOSUB 12978
  2325.      GOTO 4775
  2326. 4777 CM = 0
  2327.      CALL FINDTIME (TI!)
  2328.      ELAPSED! = FIX(TI! - TIME.CHAT.STARTED!)
  2329.      IF ELAPSED! < 0 THEN _
  2330.         ELAPSED! = TI! + (86400! - TIME.CHAT.STARTED!)
  2331.      SECONDS.PER.SESSION! = SECONDS.PER.SESSION! + ELAPSED!
  2332.      IF NOT LOCAL.USER THEN _
  2333.         AUTO.LOGOFF! = TI! + WAIT.BEFORE.DISCONNECT
  2334.      CALL QTPUT("  Chat ended.  Returning to normal operation",2)
  2335.      RETURN 1205
  2336. '
  2337. ' ****  S - COMMAND FROM UTILITY MENU (STATISTICS)  ****
  2338. '
  2339. 4850 IF TURBO.LOGON THEN _
  2340.         RETURN
  2341.      CALL QTPUT ("RBBS-PC " + VERSION.ID$ + " Node " + NODE.ID$,1)
  2342.      A$ = ""
  2343.      IF NOT CONFERENCE.MODE THEN _
  2344.         A$ = "Caller # " + _
  2345.              STR$(CALLS.TODATE!) + _
  2346.              "  "
  2347. 4855 A$ = A$ + _
  2348.           "# active msgs:" + _
  2349.           STR$(ACTIVE.MESSAGES)
  2350.      A$ = A$ + _
  2351.           "  Next msg #" + _
  2352.           STR$(HIGH.MESSAGE.NUMBER + 1)
  2353.      IF LAST.MESSAGE.READ > 0 THEN _
  2354.         A$ = A$ + _
  2355.              "  Last msg read:" + _
  2356.              STR$(LAST.MESSAGE.READ)
  2357. 4857 GOSUB 12976
  2358.      IF SYSOP THEN _
  2359.         USER.WORK = (HIGHEST.USER.RECORD * .95) + 1: _
  2360.         A$ = "USERS: used" + _
  2361.              STR$(CURRENT.USER.COUNT - 1) + _
  2362.              " avl" + _
  2363.              STR$(USER.WORK - CURRENT.USER.COUNT) + _
  2364.              "  MSGS: used" + _
  2365.              STR$(ACTIVE.MESSAGES) + _
  2366.              " avl" + _
  2367.              STR$(MAXIMUM.MESSAGES - ACTIVE.MESSAGES) + _
  2368.              "  MSG REC: used" + _
  2369.              STR$(NEXT.MESSAGE.RECORD - 1) + _
  2370.              " avl" + _
  2371.              STR$(HIGHEST.MESSAGE.RECORD + 1 - NODES.IN.SYSTEM - NEXT.MESSAGE.RECORD) : _
  2372.         GOSUB 12976 : _
  2373.         Z$ = UPLOAD.DRIVE.FILE$ : _
  2374.         CALL FINDFREE : _
  2375.         CALL QTPUT ("Upload disk has" + FREE.SPACE$,1)
  2376.      RETURN
  2377. 4900 IF NOT LOCAL.USER THEN _
  2378.         CALL UPDTCALR ("Entered " + GRN$,1)
  2379.      CALL QTPUT("Welcome to " + GRN$,1)
  2380. 4905 CALL BUFFILE (FILE.NAME$,X)
  2381. 4910 GOSUB 12986
  2382.      GOSUB 5344
  2383.      IF LOF(1) = 0 THEN _
  2384.         DF$ = ACTIVE.MESSAGE.FILE$ : _
  2385.         CLOSE 1 : _
  2386.         KILL ACTIVE.MESSAGE.FILE$ : _
  2387.         GOSUB 12987 : _
  2388.         RETURN 13600
  2389.      GOSUB 23000
  2390.      RETURN
  2391. '
  2392. ' ****  P - COMMAND FROM UTILITY MENU (PASSWORD CHANGE)  ****
  2393. '
  2394. 5110 A$ = "Enter new password" + _
  2395.           PRESS.ENTER$
  2396.      GOSUB 45010
  2397.      IF Q = 0 THEN _
  2398.         RETURN
  2399.      IF LEN(B$) > 15 OR B$ = SPACE$(LEN(B$)) THEN _
  2400.         GOTO 5110
  2401.      CALL ALLCAPS (B$)
  2402.      Z$ = B$
  2403. 5120 A$ = "Reenter new password"
  2404.      GOSUB 45010
  2405.      IF Q = 0 THEN _
  2406.         RETURN
  2407.      CALL ALLCAPS (B$)
  2408.      IF Z$ <> B$ THEN _
  2409.         A$ = "Passwords don't match!" : _
  2410.         GOSUB 12979 : _
  2411.         RETURN
  2412. 5125 IF MAXIMUM.PASSWORD.CHANGES AND _
  2413.         CHANGES.THIS.SESSION > _
  2414.         MAXIMUM.PASSWORD.CHANGES AND _
  2415.         NOT SYSOP THEN _
  2416.             A$ = "No changes permitted" : _
  2417.             GOSUB 12975 : _
  2418.             RETURN _
  2419.      ELSE PASSWORD.CHANGE.ALLOWED = TRUE : _
  2420.           GOSUB 5140 : _
  2421.           IF NOT FOUND THEN _
  2422.              GOTO 5129 _
  2423.           ELSE A$ = "Temporary change" : _
  2424.                GOSUB 12975 : _
  2425.                PASSWORD$ = TEMP.PASSWORD$ : _
  2426.                SECONDS.PER.SESSION! = TEMP.TIME.ALLOWED * 60 : _
  2427.                USER.SECURITY.LEVEL = TEMP.SECURITY.LEVEL : _
  2428.                GOSUB 41070 : _
  2429.                SYSOP = (USER.SECURITY.LEVEL >= SYSOP.SECURITY.LEVEL) : _
  2430.                CALL CALLOPT : _
  2431.                CALL XFERTYPE (2,TRUE)
  2432.      IF ACTIVE.USER.NAME$ = "SYSOP" THEN _
  2433.         B$(1) = "********"
  2434. 5126 CALL UPDTCALR ("Used temp password " + B$,2)
  2435.      RETURN
  2436. 5129 GOSUB 12989
  2437.      CALL OPENUSER (HIGHEST.USER.RECORD)
  2438.      GOSUB 9450
  2439. 5130 IF USER.FILE.INDEX < 1 OR _
  2440.         USER.FILE.INDEX > 32767 THEN _
  2441.         GOTO 5160
  2442.      GET 5,USER.FILE.INDEX
  2443.      CALL ALLCAPS (B$)
  2444.      LSET PASSWORD$ = B$
  2445.      GOSUB 9440
  2446.      GOSUB 12991
  2447.      A$ = "Password changed"
  2448.      STOP.INTERRUPTS = TRUE
  2449.      GOSUB 12975
  2450.      IF MAXIMUM.PASSWORD.CHANGES THEN _
  2451.         CHANGES.THIS.SESSION = CHANGES.THIS.SESSION + 1
  2452. 5131 CALL UPDTCALR ("New Password " + B$(1),2)
  2453.      RETURN
  2454. '
  2455. ' ****  SEARCH "PASSWORDS" FILE FOR TEMPORARY PASSWORDS  ****
  2456. '
  2457. 5135 Z$ = ""
  2458.      Z = 0
  2459.      GOSUB 5140
  2460.      IF FOUND THEN _
  2461.         MINUTES.PER.SESSION! = TEMP.TIME.ALLOWED : _
  2462.         MAX.PER.DAY = -(MAX.PER.DAY * (TEMP.MAX.PER.DAY <= 0)) - _
  2463.                        (TEMP.MAX.PER.DAY * (TEMP.MAX.PER.DAY > 0)) : _
  2464.         TIME.LOCK.SET = TEMP.TIME.LOCK : _
  2465.         IF TEMP.REG.PERIOD > 0 THEN _
  2466.            DAYS.IN.REGISTRATION.PERIOD = TEMP.REG.PERIOD
  2467.      IF LIMIT.MINUTES.PER.SESSION! THEN _
  2468.         IF MINUTES.PER.SESSION! > LIMIT.MINUTES.PER.SESSION! THEN _
  2469.            MINUTES.PER.SESSION! = LIMIT.MINUTES.PER.SESSION!
  2470.      SECONDS.PER.SESSION! = MINUTES.PER.SESSION! * 60
  2471.      RETURN
  2472. 5140 FOUND = FALSE
  2473.      CALL OPENWORK (PASSWORDS.FILE$)
  2474.      IF EC = 53 THEN _
  2475.         CALL UPDTCALR ("Missing file " + PASSWORDS.FILE$,2) : _
  2476.         IF Z = 1 THEN _
  2477.            CALL ALLCAPS (B$(1)) : _
  2478.            Z$ = B$(1) : _
  2479.            GOTO 5160 _
  2480.         ELSE GOTO 5160
  2481.      Z$ = Z$ + _
  2482.           SPACE$(15 - LEN(Z$))
  2483. 5150 IF EOF(2) THEN _
  2484.         GOTO 5160
  2485. 5151 CALL GETPASWD
  2486.      IF EC <> 0 THEN _
  2487.         EL = 5151 : _
  2488.         GOTO 13000
  2489.      IF LEN(TEMP.PASSWORD$) > 15 THEN _
  2490.         GOTO 5150
  2491.      TEMP.PASSWORD$ = TEMP.PASSWORD$ + _
  2492.                       SPACE$(15 - LEN(TEMP.PASSWORD$))
  2493.      IF Z$ <> TEMP.PASSWORD$ THEN _
  2494.         GOTO 5150
  2495.      IF PASSWORD.CHANGE.ALLOWED AND _
  2496.         USER.SECURITY.LEVEL >= MINIMUM.SECURITY.FOR.TEMP.PASSWORD THEN _
  2497.         GOTO 5155
  2498.      IF USER.SECURITY.LEVEL <> TEMP.SECURITY.LEVEL THEN _
  2499.         GOTO 5150
  2500.      IF START.TIME = 0 THEN _
  2501.         GOTO 5155
  2502.      WORK.TIME$ = TIME$
  2503.      TEST.TIME = VAL(LEFT$(WORK.TIME$,2) + MID$(WORK.TIME$,4,2))
  2504.      IF TEST.TIME => START.TIME AND TEST.TIME <= END.TIME THEN _
  2505.         GOTO 5155
  2506.      IF END.TIME < START.TIME THEN _
  2507.         IF TEST.TIME => START.TIME OR TEST.TIME <= END.TIME THEN _
  2508.            GOTO 5155
  2509.      GOTO 5150
  2510. 5155 FOUND = TRUE
  2511. 5160 EC = 0
  2512.      RETURN
  2513. 5200 CALL PAGELEN
  2514.      RETURN
  2515. '
  2516. ' ****  J - COMMAND FROM MAIN MENU (JOIN CONFERENCE)  ****
  2517. '
  2518. 5300 A1$ = CONFERENCE.MENU$
  2519. 5301 CALL SUBMENU ("What conference, L)ist, M)ain ([ENTER] quits)",_
  2520.                    A1$,MID$(MAIN.MESSAGE.FILE$,1,2),_
  2521.                    "M.DEF","M",USER.GRAPHIC.DEFAULT$,TRUE,FALSE,FALSE)
  2522.      IF Q = 0 THEN _
  2523.         RETURN
  2524.      IF SUBROUTINE.PARAMETER = -1 THEN _
  2525.         RETURN 10595
  2526. 5323 IF Z$ = "M" OR Z$ = "MAIN" THEN _
  2527.         IF GRN$ = "MAIN" THEN _
  2528.            RETURN _
  2529.         ELSE GOTO 5350
  2530.      ANS.INDEX = 0
  2531.      IF NOT OK THEN _
  2532.         GOTO 5300
  2533.      Q = 0
  2534. '
  2535. ' ****  UPDATE PREVIOUS MESSAGE BASE CHECKPOINT RECORD  ****
  2536. '
  2537. 5324 PREV.GRN$ = GRN$
  2538.      GRN$ = Z$
  2539.      GRN.NAME$ = GRN$
  2540.      GRN.SAVE$ = GRN$
  2541.      GOSUB 12986
  2542.      GOSUB 5342
  2543.      PREV.MESSAGE$ = ACTIVE.MESSAGE.FILE$
  2544.      ACTIVE.MESSAGE.FILE$ = FILE.NAME$
  2545.      GOSUB 5343
  2546. '
  2547. ' ****  UPDATE PREVIOUS USER RECORD  ****
  2548. '
  2549. 5325 GOSUB 5380
  2550. '
  2551. ' *****  CHECK WHETHER HAVE SUBBORD (I.E. CONFIG.DEF EXISTS)  *****
  2552. '
  2553. 5327 USER.RECORD.HOLD$ = USER.RECORD$
  2554.      CONFERENCE.MODE.SAVE = CONFERENCE.MODE
  2555.      CONFERENCE.MODE = TRUE
  2556.      X$ = GRN$ + _
  2557.           "C.DEF"
  2558.      PREV.USER$ = ACTIVE.USER.FILE$
  2559.      PREV.INDEX = USER.FILE.INDEX
  2560.      PREV.MAIN.USER$ = MAIN.USER.FILE$
  2561.      PREV.DEF$ = CURRENT.DEF$
  2562.      CALL FINDIT (X$)
  2563.      SUB.BOARD = OK
  2564.      IF NOT SUB.BOARD THEN _
  2565.         X$ = MID$(MAIN.MESSAGE.FILE$,1,2) + X$ : _
  2566.         CALL FINDIT (X$) : _
  2567.         SUB.BOARD = OK
  2568.      IF SUB.BOARD THEN _
  2569.         IF LEN(GRN$) = 7 THEN _
  2570.            IF LEFT$(GRN$,4) = "RBBS" AND RIGHT$(GRN$,2) = "PC" THEN _
  2571.               SUB.BOARD = FALSE
  2572.      IF NOT SUB.BOARD THEN _
  2573.         X$ = MID$(ACTIVE.USER.FILE$,1,2) + _
  2574.              GRN$ + _
  2575.              "U.DEF" : _
  2576.         FILE.NAME$ = WELCOME.FILE.DRV.PATH$ + _
  2577.                      GRN$ + _
  2578.                      "W.DEF" _
  2579.         ELSE CALL READDEF (X$) : _
  2580.              IF EC > 0 THEN _
  2581.                 CALL UPDTCALR ("Error"+STR$(EC)+" reading config file "+X$,2) : _
  2582.                 EC = 0 : _
  2583.                 IN.CONF.MENU = FALSE : _
  2584.                 GOTO 5341 _
  2585.              ELSE X$ = MAIN.USER.FILE$ : _
  2586.                   FILE.NAME$ = ""
  2587.      UPDATE.DATE = TRUE
  2588.      CALL FINDIT (X$)
  2589.      IF OK THEN _
  2590.         GOTO 5330
  2591. '
  2592. ' *****  NO USER FILE - A PUBLIC CONFERENCE   *****
  2593. '
  2594.      MAIN.USER.FILE$ = PREV.MAIN.USER$
  2595.      IF (USER.SECURITY.LEVEL < AUTO.ADD.SECURITY) THEN _
  2596.         GOTO 5341
  2597.      X$ = MAIN.USER.FILE$
  2598.      SYSOP.PASSWORD.1$ = ""
  2599.      SYSOP.PASSWORD.2$ = ""
  2600. '
  2601. ' ****  CHECK CONFERENCE USER'S FILE  ****
  2602. '
  2603. 5330 ACTIVE.USER.FILE$ = X$
  2604.      IF MAIN.USER.FILE.INDEX < 1 THEN _
  2605.         FOUND = FALSE : _
  2606.         USER.FILE.INDEX = 0 : _
  2607.         GOTO 5340
  2608.      CALL WORDINFILE (CONFERENCE.MENU$,GRN$,IN.CONF.MENU)
  2609.      IF ACTIVE.USER.NAME$ = "SYSOP" THEN _
  2610.         TEMP.HASH.VALUE$ = ORIG.USER.NAME$
  2611.      GOSUB 12600
  2612.      GOSUB 12984
  2613. 5340 IF FOUND THEN _
  2614.         GOSUB 9500 : _
  2615.         MAIN.USER.FILE.INDEX = -(SUB.BOARD * USER.FILE.INDEX)_
  2616.                                -((NOT SUB.BOARD) * MAIN.USER.FILE.INDEX) : _
  2617.         GOTO 5345
  2618. '
  2619. ' **** USER NOT FOUND.  AUTO-ADD TO SUBBORAD IF SUFFICIENT SECURITY ****
  2620. '
  2621.      IF SUB.BOARD THEN _
  2622.         AUTO.ADD.SECURITY = MINIMUM.LOGON.SECURITY
  2623.      IF (USER.SECURITY.LEVEL >= AUTO.ADD.SECURITY) AND _
  2624.         (USER.FILE.INDEX > 0) AND (MAIN.USER.FILE.INDEX > 0) THEN _
  2625.            CALL QTPUT("MEMBER privileges granted in conference " + GRN$,1) : _
  2626.            LSET USER.RECORD$ = USER.RECORD.HOLD$ : _
  2627.            MID$(USER.OPTIONS$,3,2) = MKI$(0) : _
  2628.            MID$(USER.OPTIONS$,1,2) = MKI$(0) : _
  2629.            ACTIVE.USER.NAME$ = LEFT$(USER.RECORD.HOLD$,30) : _
  2630.            CALL TRIM (ACTIVE.USER.NAME$) : _
  2631.            TEMP = -(SUB.BOARD * DEFAULT.SECURITY.LEVEL) _
  2632.                   -((NOT SUB.BOARD) * USER.SECURITY.SAVE) : _
  2633.            GOSUB 5370 : _
  2634.            TEMP = -(A * SYSOP.SECURITY.LEVEL) - ((NOT A) * TEMP) : _
  2635.            LSET SECURITY.LEVEL$ = MKI$(TEMP) : _
  2636.            USER.SECURITY.LEVEL = TEMP : _
  2637.            GOSUB 12986 : _
  2638.            GOSUB 12630 : _
  2639.            UPDATE.DATE = TRUE : _
  2640.            FOUND = TRUE : _
  2641.            GOTO 5340 _
  2642.      ELSE IF USER.SECURITY.LEVEL >= AUTO.ADD.SECURITY THEN _
  2643.              CALL QTPUT("GUEST privileges granted in conference " + GRN$,1) : _
  2644.              ACTIVE.USER.FILE$ = PREV.USER$ : _
  2645.              UPDATE.DATE = FALSE : _
  2646.              USER.FILE.INDEX = PREV.INDEX : _
  2647.              GOSUB 5382 : _
  2648.              GOTO 5345
  2649. 5341 IF IN.CONF.MENU THEN _
  2650.         A$ = "you are not in conference " + _
  2651.              GRN$ _
  2652.      ELSE A$ = "no such option " + _
  2653.                GRN$
  2654. '
  2655. ' ****  CANNOT JOIN THE REQUESTED CONFERENCE.  THEREFORE, GO BACK  ****
  2656. '
  2657.      GOSUB 1397
  2658.      GRN$ = PREV.GRN$
  2659.      GRN.NAME$ = GRN$
  2660.      IF SUB.BOARD THEN _
  2661.         CALL READDEF (PREV.DEF$)
  2662.      ACTIVE.MESSAGE.FILE$ = PREV.MESSAGE$
  2663.      GOSUB 5343
  2664.      USER.FILE.INDEX = PREV.INDEX
  2665.      ACTIVE.USER.FILE$ = PREV.USER$
  2666.      GOSUB 5382
  2667.      CONFERENCE.MODE = CONFERENCE.MODE.SAVE
  2668.      GOSUB 12979
  2669.      GOSUB 12987
  2670.      ANS.INDEX = 0
  2671.      GOTO 5301
  2672. '
  2673. ' ****  UPDATE POINTERS FOR A MESSAGE BASE   ****                                    *
  2674. '
  2675. 5342 GOSUB 12986
  2676.      GOSUB 5344
  2677.      GET 1,1
  2678.      GOSUB 24000
  2679.      GOSUB 12985
  2680.      RETURN
  2681. '
  2682. ' ****  RESTORE A MESSAGE BASE   ****
  2683. '
  2684. 5343 GOSUB 5344
  2685.      GOSUB 23000
  2686.      RETURN
  2687. '
  2688. ' *****  OPEN AND SETUP MESSAGE BASE  *****                                            *
  2689. '
  2690. 5344 CALL OPENMSG
  2691.      IF EC = 64 THEN _
  2692.         EC = 0 : _
  2693.         GOTO 5350
  2694.      FIELD 1, 128 AS MESSAGE.RECORD$
  2695.      RETURN
  2696. '
  2697. ' *****  SUCCESSFUL CONFERENCE JOIN  ****                                             *
  2698. '
  2699. 5345 GRN$ = GRN$ + " " + MID$("ConferenceSubboard",1-10*SUB.BOARD,10)
  2700.      IF UPDATE.DATE THEN _
  2701.         BOARD.CHECK.DATE$ = LAST.DATE.TIME.ON$ : _
  2702.         LSET LAST.DATE.TIME.ON$ = CURRENT.DATE$ + _
  2703.                                   " " + _
  2704.                                   TIME.LOGGED.ON$ : _
  2705.         GOSUB 9440 : _
  2706.         GOSUB 12991
  2707.      IF GLOBAL.SYSOP THEN _
  2708.         ACTIVE.USER.NAME$ = "SYSOP"
  2709. 5347 GOSUB 4900
  2710. 5348 GOSUB 12987
  2711.      GOSUB 12990
  2712.      IF SUB.BOARD THEN _
  2713.         ACTIVE.FMS.DIRECTORY$ = "" : _
  2714.         RETURN 108 _
  2715.      ELSE RETURN 852
  2716. '
  2717. ' ****  JOIN M)AIN   ****
  2718. '
  2719. 5350 IF GRN$ <> "MAIN" THEN _
  2720.         CALL QTPUT ("Rejoining " + ORIG.MSG.NAME$,1)
  2721.      GRN$ = "MAIN"
  2722.      GRN.NAME$ = ORIG.MSG.NAME$
  2723.      TURBO.LOGON = TRUE
  2724.      Q = 0
  2725.      IN.CONF.MENU = TRUE
  2726.      IF ACTIVE.USER.NAME$ = "SYSOP" THEN _
  2727.         ACTIVE.USER.NAME$ = SYSOP.PASSWORD.1$ + " " + SYSOP.PASSWORD.2$
  2728.      CONFIG.FILENAME$ = ORIG.CONFIG$
  2729.      CALL READDEF (CONFIG.FILENAME$)
  2730.      IF MAIN.MESSAGE.FILE$ <> ACTIVE.MESSAGE.FILE$ THEN _
  2731.         GOSUB 5342 : _
  2732.         ACTIVE.MESSAGE.FILE$ = MAIN.MESSAGE.FILE$ : _
  2733.         GOSUB 5343
  2734.      IF MAIN.USER.FILE$ <> ACTIVE.USER.FILE$ THEN _
  2735.         GOSUB 5380 : _
  2736.         ACTIVE.USER.FILE$ = MAIN.USER.FILE$ : _
  2737.         GOSUB 12598 : _
  2738.         GOSUB 12990 : _
  2739.         IF FOUND THEN _
  2740.            GOSUB 9500 : _
  2741.            MAIN.USER.FILE.INDEX = USER.FILE.INDEX : _
  2742.            CALL CALLOPT : _
  2743.            CALL XFERTYPE (2,TRUE) _
  2744.         ELSE USER.FILE.INDEX = 0 : _
  2745.              MAIN.USER.FILE.INDEX = 0
  2746.      IF LOCAL.USER.MODE OR NOT LOCAL.USER THEN _
  2747.         CALL UPDTCALR ("Exited Conference",1)
  2748.      GOSUB 2350
  2749. 5360 CONFERENCE.MODE = FALSE
  2750.      'IF COMMENTS.IN.CONFERENCE = 1 THEN _
  2751.      '   COMMENTS.IN.CONFERENCE = 0 : _
  2752.      '   RETURN
  2753.      SUB.BOARD = TRUE
  2754.      GOSUB 12987
  2755.      RETURN 108
  2756. 5370 A = (ACTIVE.USER.NAME$ = SYSOP.PASSWORD.1$ + " " + SYSOP.PASSWORD.2$)
  2757.      GLOBAL.SYSOP = (GLOBAL.SYSOP OR (A AND ORIG.CONFIG$ = CONFIG.FILENAME$))
  2758.      RETURN
  2759. '
  2760. ' *****  UPDATE CURRENT USERS RECORD  *****
  2761. '
  2762. 5380 IF USER.FILE.INDEX < 1 THEN _
  2763.         RETURN
  2764.      IF ADJUSTED.SECURITY AND NOT SYSOP THEN _
  2765.         LSET SECURITY.LEVEL$ = MKI$(USER.SECURITY.LEVEL) : _
  2766.         USER.SECURITY.SAVE = USER.SECURITY.LEVEL
  2767.      GOSUB 12989
  2768.      CALL DEFAULTU
  2769.      PUT 5,USER.FILE.INDEX
  2770.      GOSUB 12991
  2771.      RETURN
  2772. '
  2773. ' *****  RESTORE A USER RECORD  *****
  2774. '
  2775. 5382 IF USER.FILE.INDEX < 1 THEN _
  2776.         USER.SECURITY.LEVEL = DEFAULT.SECURITY.LEVEL : _
  2777.         RETURN
  2778.      CALL OPENUSER (HIGHEST.USER.RECORD)
  2779.      GET 5,USER.FILE.INDEX
  2780.      GOSUB 9500
  2781.      RETURN
  2782. '
  2783. ' *****  R - COMMAND FROM UTILITY MENU (REVIEW PROFILE)  *****
  2784. '
  2785. 5400 CALL SKIPLINE(2)
  2786.      CALL QTPUT ("Your PROFILE (utilities reset)",1)
  2787. 5410 CALL TOGGLE(-9)
  2788.      GOSUB 43020
  2789.      FF = INSTR(DFLTXFER$,USER.TRANSFER.DEFAULT$)
  2790.      CALL TOGGLE(-5)
  2791.      GOSUB 42810
  2792.      CALL TOGGLE(-3)
  2793.      CALL TOGGLE(-6)
  2794.      CALL TOGGLE(-7)
  2795.      CALL TOGGLE(-10)
  2796.      CALL TOGGLE(-2)
  2797.      CALL TOGGLE(-4)
  2798.      CALL TOGGLE(-8)
  2799.      CALL TOGGLE(-1)
  2800.      IF RESTRICT.BY.DATE THEN _
  2801.         IF USER.SECURITY.LEVEL > EXPIRED.SECURITY THEN _
  2802.            CALL QTPUT ("Registration expires " + EXPIRATION.DATE$,1)
  2803.      RETURN
  2804. '
  2805. ' *****  B - COMMAND FROM UTILITY MENU (300 TO 450 BAUD CHANGE)  *****
  2806. '
  2807. 5500 CALL BAUD450
  2808.      IF LOCAL.USER OR NOT (SUBROUTINE.PARAMETER OR C = 20) THEN _
  2809.         RETURN
  2810. 5502 RETURN 10595  'Entry point when have double nested gosub
  2811. '
  2812. ' *****  V - COMMAND FROM MAIN MENU (VIEW CONFERENCES)  *****
  2813. '
  2814. 5800 CALL CONFMAIL
  2815.      RETURN
  2816. '
  2817. ' *  FORMAT MESSAGE HEADER INFORMATION FOR DISPLAY
  2818. '
  2819. 8000 IF RET THEN _
  2820.         RETURN
  2821. 8020 IF MID$(MESSAGE.RECORD$,37,5) = "ALL  " THEN _
  2822.         MESSAGE.TO$ = "ALL" : _
  2823.         GOTO 8040
  2824. 8030 MESSAGE.TO$ = MID$(MESSAGE.RECORD$,37,22)
  2825.      CALL TRIM (MESSAGE.TO$)
  2826. 8040 IF LEN(MESSAGE.TO$) < 23 THEN _
  2827.         MESSAGE.TO$ = MESSAGE.TO$ + _
  2828.                       SPACE$(23 - LEN(MESSAGE.TO$))
  2829.      SUBJECT$ = MID$(MESSAGE.RECORD$,76,25)
  2830.      CALL TRIM (SUBJECT$)
  2831.      IF PASSWORD.FAILED THEN _
  2832.         SUBJECT$ = SJ$
  2833. 8050 MESSAGE.FROM$ = MID$(MESSAGE.RECORD$,6,31)
  2834.      CALL TRIM (MESSAGE.FROM$)
  2835.      IF LEN(MESSAGE.FROM$) < 23 THEN _
  2836.         MESSAGE.FROM$ = MESSAGE.FROM$ + _
  2837.                         SPACE$(23 - LEN(MESSAGE.FROM$))
  2838.      IF USER.SECURITY.LEVEL >= SEC.CHANGE.MSG THEN _
  2839.         YY$ = "  Security:" + _
  2840.               STR$(MESSAGE.SECURITY) _
  2841.         ELSE YY$ = ""
  2842.      A$ = FG.1$ + "Msg #: " + _
  2843.           LEFT$(MESSAGE.RECORD$,5) + _
  2844.           + YY$
  2845.      YY$ = FG.4$ + "   Sent: " + _
  2846.           MID$(MESSAGE.RECORD$,68,8) + _
  2847.           " " + _
  2848.           MID$(MESSAGE.RECORD$,59,5)
  2849.      IF NOT RET THEN _
  2850.         IF READ.MESSAGES THEN _
  2851.            CALL QTPUT (A$,1): _
  2852.            X$ = MESSAGE.FROM$ : _
  2853.            CALL CHKCOLOR (X$,SEARCH.HEADER$,FG.2$) : _
  2854.            CALL QTPUT (FG.2$ + " From:  " + X$ + YY$,1) : _
  2855.            GOSUB 8076 : _
  2856.            X$ = MESSAGE.TO$ : _
  2857.            CALL CHKCOLOR (X$,SEARCH.HEADER$,FG.3$) : _
  2858.            CALL QTPUT (FG.3$ + "   To:  " + X$ + "  " + FG.2$ + YY$,1) : _
  2859.            CALL CHKCOLOR (SUBJECT$,SEARCH.HEADER$,FG.4$) : _
  2860.            A$ = FG.4$ + "   Re:  " + _
  2861.                 SUBJECT$ + EMPHASIZE.OFF$ _
  2862.         ELSE A$ = FG.1$ + LEFT$(MESSAGE.RECORD$,5) + _
  2863.                   " " + _
  2864.                   MID$(MESSAGE.RECORD$,68,5) + _
  2865.                   " " + _
  2866.                   + FG.2$ + LEFT$(MESSAGE.FROM$,18) + _
  2867.                   " -> " + _
  2868.                   + FG.3$ + LEFT$(MESSAGE.TO$,19) + _
  2869.                   " " + _
  2870.                   + FG.4$ + LEFT$(SUBJECT$,24) + EMPHASIZE.OFF$ : _
  2871.              CALL CHKCOLOR (A$,SEARCH.HEADER$,"") : _
  2872.              GOTO 8080
  2873.      IF QUICK.SCAN.MESSAGES OR _
  2874.         SCAN.MESSAGES THEN _                                         ' TF041203
  2875.            GOTO 8080 _
  2876.      ELSE GOTO 8077
  2877. 8076 IF MID$(MESSAGE.RECORD$,123,6) = STRING$(6,0) OR _
  2878.         MID$(MESSAGE.RECORD$,123,6) = SPACE$(6) THEN _
  2879.            YY$ = " Rcvd: -NO-" : _
  2880.            RETURN
  2881.      YY$ = " Rcvd: " + _
  2882.            RIGHT$(STR$(ASC(MID$(MESSAGE.RECORD$,123,1))),2) + _
  2883.            "-" + _
  2884.            RIGHT$(STR$(ASC(MID$(MESSAGE.RECORD$,124,1))),2) + _
  2885.            "-" + _
  2886.            RIGHT$(STR$(ASC(MID$(MESSAGE.RECORD$,125,1))),2) + _
  2887.            " " + _
  2888.            RIGHT$(STR$(ASC(MID$(MESSAGE.RECORD$,126,1))),2) + _
  2889.            ":" + _
  2890.            RIGHT$(STR$(ASC(MID$(MESSAGE.RECORD$,127,1))),2)
  2891.      FOR I = 8 TO 15
  2892.         IF MID$(YY$,I,1) = " " THEN _
  2893.            MID$(YY$,I,1) = "0"
  2894.      NEXT
  2895.      FOR I = 17 TO 21
  2896.         IF MID$(YY$,I,1) = " " THEN _
  2897.            MID$(YY$,I,1) = "0"
  2898.      NEXT
  2899.      RETURN
  2900. 8077 IF MSG.FROM.CALLER OR (NOT MSG.TO.CALLER) THEN _
  2901.         GOTO 8080
  2902.      YY$ = DATE$
  2903.      WK$ = TIME$
  2904.      MID$(MESSAGE.RECORD$,123,6) = CHR$(VAL(MID$(YY$,1,2))) + _
  2905.                                    CHR$(VAL(MID$(YY$,4,2))) + _
  2906.                                    CHR$(VAL(MID$(YY$,9,2))) + _
  2907.                                    CHR$(VAL(MID$(WK$,1,2))) + _
  2908.                                    CHR$(VAL(MID$(WK$,4,2))) + _
  2909.                                    CHR$(VAL(MID$(WK$,7,2)))
  2910.      GOSUB 12986
  2911.      PUT 1,M(MESSAGE.DIM.INDEX,1)
  2912.      GOSUB 12987
  2913. 8080 GOSUB 12979
  2914.      A$ = ""
  2915.      RETURN
  2916. '
  2917. ' * UNCOMPRESS MESSAGE PRIOR TO DISPLAY                                       *
  2918. '
  2919. 9000 IF NOT JUST.SEARCHING THEN _
  2920.         CALL SKIPLINE (1)
  2921.      FOR X = 2 TO VAL(MID$(MESSAGE.RECORD$,117,4))
  2922.         IF NOT JUST.SEARCHING THEN _
  2923.            GOSUB 12978 : _
  2924.            EOL = FALSE : _
  2925.            J = 1
  2926.         GET 1
  2927.         IF JUST.SEARCHING THEN _
  2928.            A$ = MESSAGE.RECORD$ : _
  2929.            CALL ALLCAPS (A$) : _
  2930.            HIGHLITE.POS = INSTR(A$,SEARCH.STRING$) : _
  2931.            IF HIGHLITE.POS > 0 THEN _
  2932.               HIGHLITE.REC = LOC(1) : _
  2933.               X = 9999 : _
  2934.               GOTO 9090 _
  2935.            ELSE GOTO 9090
  2936. 9050    B = INSTR(J,MESSAGE.RECORD$,CHR$(227))
  2937.         IF RET THEN _
  2938.            RETURN
  2939. 9060    C = B - J
  2940.         IF C < 0 THEN _
  2941.            C = 128 : _
  2942.            EOL = TRUE
  2943. 9070    A$ = MID$(MESSAGE.RECORD$,J,C)
  2944.         IF HIGHLITE.REC = LOC(1) THEN _
  2945.            IF HIGHLITE.POS >= J AND HIGHLITE.POS < J+C THEN _
  2946.               HIGHLITE.REC = -1 : _
  2947.               CALL BRACKET (A$,HIGHLITE.POS-J+1,HIGHLITE.POS+LEN(SEARCH.STRING$)-J,EMPHASIZE.ON$,EMPHASIZE.OFF$)
  2948. '             CALL COLORIZE (A$,HIGHLITE.POS+LEN(SEARCH.STRING$)-J,HIGHLITE.POS-J+1,EMPHASIZE.ON$,EMPHASIZE.OFF$)
  2949.         IF EOL THEN _
  2950.            GOTO 9090
  2951. 9085    J = B + 1
  2952.         CALL QTPUT (A$,1)
  2953.         CALL ASKMORE ("",TRUE,TRUE,MESSAGES.SELECTED.INDEX,FALSE)
  2954.         IF NO THEN _
  2955.           GOTO 5160
  2956.         GOTO 9050
  2957. 9090 NEXT
  2958.      IF JUST.SEARCHING AND HIGHLITE.POS > 0 THEN _
  2959.         JUST.SEARCHING = FALSE : _
  2960.         GET 1,M(MESSAGE.DIM.INDEX,1) : _
  2961.         GOSUB 8000 : _
  2962.         GOTO 9000
  2963.      A$ = ""
  2964.      RETURN
  2965. '
  2966. ' *  C - COMMAND FROM UTILITY MENU (CLOCK - TIME ON SYSTEM)                   *
  2967. '
  2968. 9100 CALL RPTTIME
  2969.      RETURN
  2970. '
  2971. ' * WRITE A RECORD TO THE RBBS-PC "USER" FILE                                 *
  2972. '
  2973. 9440 IF USER.FILE.INDEX > 0 AND USER.FILE.INDEX < 32768 THEN _
  2974.         PUT 5,USER.FILE.INDEX
  2975.      RETURN
  2976. '
  2977. ' * DEFINE USER FILE RECORD VARIABLES TO COMPENSATE FOR THE BUG IN QUICKBASIC *
  2978. ' * THAT REQUIRES A FIELD STATMENT TO BE EXECUTED WITHIN EACH SEPARATELY      *
  2979. ' * COMPILED PROGRAM -- EVEN THOUGH A FIELD STATEMENT WAS EXECUTED WHEN THE   *
  2980. ' * FILE WAS OPENED IN ANOTHER SEPERATELY COMPILED SUBROUTINE                 *
  2981. '
  2982. 9450 IF LOF(5) < 1 THEN _
  2983.         DF$ = ACTIVE.USER.FILE$ : _
  2984.         RETURN 13600
  2985.      FIELD 5,31 AS USER.NAME$, _
  2986.              15 AS PASSWORD$, _
  2987.               2 AS SECURITY.LEVEL$, _
  2988.              14 AS USER.OPTIONS$,  _
  2989.              24 AS CITY.STATE$, _
  2990.               3 AS MACHINE.TYPE$, _
  2991.               4 AS TODAY.DL$, _
  2992.               4 AS TODAY.BYTES$, _
  2993.               4 AS DL.BYTES$, _
  2994.               4 AS UL.BYTES$, _
  2995.              14 AS LAST.DATE.TIME.ON$, _
  2996.               3 AS LIST.NEW.DATE$, _
  2997.               2 AS USER.DOWNLOADS$, _
  2998.               2 AS USER.UPLOADS$, _
  2999.               2 AS ELAPSED.TIME$
  3000.      FIELD 5,128 AS USER.RECORD$
  3001.      RETURN
  3002. '
  3003. ' * GET USER DEFAULTS                                                         *
  3004. '
  3005. 9500 GOSUB 9450
  3006.      GOSUB 5370
  3007.      IF A THEN _
  3008.         USER.SECURITY.LEVEL = SYSOP.SECURITY.LEVEL _
  3009.      ELSE USER.SECURITY.LEVEL = CVI(SECURITY.LEVEL$)
  3010.      LAST.MESSAGE.READ = CVI(MID$(USER.OPTIONS$,3,2))
  3011.      USER.TRANSFER.DEFAULT$ = MID$(USER.OPTIONS$,5,1)
  3012.      IF USER.TRANSFER.DEFAULT$ = " " THEN _
  3013.         USER.TRANSFER.DEFAULT$ = "N"
  3014.      CALL XFERTYPE (2,TRUE)
  3015.      X = ASC(MID$(USER.OPTIONS$,6,1))
  3016.      GR = (X MOD 3)
  3017.      BOLD.TEXT$ = CHR$(48 - (X > 50))
  3018.      USER.TEXT.COLOR = (X - GR)/3 + 21
  3019.      IF USER.TEXT.COLOR > 37 THEN _
  3020.         USER.TEXT.COLOR = USER.TEXT.COLOR - 7
  3021.      IF EMPHASIZE.OFF$ <> "" THEN _
  3022.         CALL QTPUT (COLOR.RESET$,0)
  3023.      IF EMPHASIZE.ON.DEF$ <> "" THEN _
  3024.         EMPHASIZE.OFF$ = ESCAPE$ + "[" + BOLD.TEXT$ + ";40;" + MID$(STR$(USER.TEXT.COLOR),2) + "m" _
  3025.      ELSE EMPHASIZE.OFF$ = ""
  3026.      IF GR = 1 AND NOT EIGHT.BIT THEN _
  3027.         GR = 0
  3028.      CALL SETUGD (GR, USER.GRAPHIC.DEFAULT$)
  3029.      RIGHT.MARGIN = CVI(MID$(USER.OPTIONS$,7,2))
  3030.      IF RIGHT.MARGIN > 72 THEN _
  3031.         RIGHT.MARGIN = 72
  3032. 9510 USER.OPTIONS = CVI(MID$(USER.OPTIONS$,9,2))
  3033.      PROMPT.BELL = (USER.OPTIONS AND 1) > 0
  3034.      EXPERT.USER = (USER.OPTIONS AND 2) > 0
  3035.      CALL SETEXPERT
  3036.      NULLS = (USER.OPTIONS AND 4) > 0
  3037.      UPPER.CASE = (USER.OPTIONS AND 8) > 0
  3038.      LINE.FEEDS = (USER.OPTIONS AND 16) > 0
  3039.      CHECK.BULLETIN.LOGON = (USER.OPTIONS AND 32) > 0
  3040.      SKIP.FILES.LOGON = (USER.OPTIONS AND 64) > 0
  3041.      AUTODOWNLOAD.DESIRED = (USER.OPTIONS AND 128) > 0
  3042.      REQ.QUES.ANSWERED = (USER.OPTIONS AND 256) > 0
  3043.      MAIL.WAITING = (USER.OPTIONS AND 512) > 0
  3044.      X = (USER.OPTIONS AND 1024 ) > 0
  3045.      CALL SETHILITE (NOT X)
  3046.      IF NOT HIGHLIGHT.OFF THEN _
  3047.         CALL QTPUT (EMPHASIZE.OFF$,0)
  3048.      TURBO.KEY.USER = (USER.OPTIONS AND 2048) > 0
  3049.      TURBO.KEY = FALSE
  3050.      GOSUB 11480
  3051.      PAGE.LENGTH = ASC(MID$(USER.OPTIONS$,13,1))
  3052.      X$ = ECHOER$
  3053.      ECHOER$ = MID$(USER.OPTIONS$,14,1)
  3054.      IF INSTR("ICR",ECHOER$) = 0 THEN _
  3055.         ECHOER$ = "R"
  3056.      IF X$ <> ECHOER$ THEN _
  3057.         GOSUB 9525
  3058.      CALL SETECHO (ECHOER$)
  3059. 9520 NUL$ = MID$(STRING$(5,0),1, - 5 * NULLS)
  3060.      CALL SETCRLF
  3061.      USE.TPUT = (UPPER.CASE OR XON.XOFF)
  3062.      PASSWORD.SAVE$ = PASSWORD$
  3063.      RETURN
  3064. 9525 IF ECHOER$ = "R" THEN _
  3065.         CALL QTPUT ("RBBS now echoing what you type",1) _
  3066.      ELSE IF ECHOER$ = "C" THEN _
  3067.              CALL QTPUT ("Please set your communications package to echo",1) _
  3068.      ELSE CALL QTPUT ("Intermediate host now echoing what you type",1)
  3069.      RETURN
  3070. '
  3071. ' *  B - COMMAND FROM MAIN MENU (READ BULLETINS)                              *
  3072. '
  3073. 9700 RETURN.ON$ = "N"
  3074.      A1$ = BULLETIN.MENU$
  3075. 9701 CALL SUBMENU ("Read what bulletin(s), L)ist, N)ew ([ENTER] = none)",_
  3076.                    A1$, BULLETIN.PREFIX$,"",RETURN.ON$,_
  3077.                    USER.GRAPHIC.DEFAULT$,FALSE,FALSE,FALSE)
  3078.      IF Q = 0 THEN _
  3079.         RETURN
  3080.      IF SUBROUTINE.PARAMETER = -1 THEN _
  3081.         RETURN 10595
  3082.      IF Z$ = "N" THEN _
  3083.         GOTO 9760
  3084.      STOP.INTERRUPTS = FALSE
  3085.      CALL BUFFILE (FILE.NAME$,ANS.INDEX)
  3086.      CALL UPDTCALR ("Read bulletin " + FILE.NAME$,1)
  3087. 9703 ANS.INDEX = ANS.INDEX + 1
  3088.      IF ANS.INDEX > LAST.INDEX THEN _
  3089.         ANS.INDEX = 0
  3090.      GOTO 9701
  3091. '
  3092. ' *  CHECK AND REVIEW NEW BULLETINS SINCE LAST LOGON                          *
  3093. '
  3094. 9750 CALL CHKNEWBUL (BOARD.CHECK.DATE$,NUM.NEW.BULLETS,NEW.BULLETS$)
  3095.      CALL SKIPLINE (1)
  3096.      A$ = STR$(NUM.NEW.BULLETS) + _
  3097.           " NEW BULLETIN(S) since last call" + _
  3098.           NEW.BULLETS$
  3099.      GOSUB 12979
  3100.      RETURN
  3101. 9760 ' ****  [entry when want review plus chance to read] *********
  3102.      GOSUB 9750
  3103.      IF NUM.NEW.BULLETS > 0 THEN _
  3104.         LAST.INDEX = Q : _
  3105.         A$ = "READ ALL new bulletins ([Y],N)" : _
  3106.         GOSUB 12999 : _
  3107.         IF NOT NO THEN _
  3108.            ANS.INDEX = 2: _
  3109.            GOTO 9700
  3110.      IF ANS.INDEX < 1 THEN _
  3111.         RETURN _
  3112.      ELSE ANS.INDEX = 0 : _
  3113.           GOTO 9701
  3114. '
  3115. ' *  W - COMMAND FROM MAIN MENU (WHO'S ON THE OTHER NODES)                    *
  3116. '
  3117. 9800 CALL WHOSON (NODES.IN.SYSTEM)
  3118.      GOSUB 5344
  3119.      RETURN
  3120. '
  3121. ' *  1 - COMMAND FROM SYSOP MENU (DISPLAY COMMENTS)                           *
  3122. '
  3123. 10070 CALL MUZAK (7)
  3124.       FILE.NAME$ = COMMENTS.FILE$
  3125.       IF NOT STOP.INTERRUPTS THEN _
  3126.          A$ = "* Ctrl-K(^K) / ^X aborts. ^S suspends, ^Q resumes *" : _
  3127.          GOSUB 12976
  3128.       GOSUB 20150
  3129.       RETURN
  3130. '
  3131. ' *  U - COMMAND FROM UTILITY MENU (DISPLAY USERS)                            *
  3132. ' *  2 - COMMAND FROM SYSOP MENU (DISPLAY USERS)                              *
  3133. '
  3134. 10090 CALL MUZAK (6)
  3135.       A$ = "List - U)sers, R)ecent callers"
  3136.       CALL SKIPLINE (1)
  3137.       GOSUB 12998
  3138.       IF Q = 0 THEN _
  3139.          RETURN
  3140.       CALL ALLCAPS (B$(1))
  3141.       ON INSTR("UR",B$(1)) + 1 GOTO 10090,10096,10093
  3142. 10093 CALL DISPCALL
  3143.       FIELD 4, 64 AS CALLERS.RECORD$
  3144.       RETURN
  3145. 10096 USER.RECORD.HOLD$ = USER.RECORD$
  3146.       GOSUB 12700
  3147.       CALL OPENUSER (HIGHEST.USER.RECORD)
  3148.       GOSUB 9450
  3149.       STOP.INTERRUPTS = FALSE
  3150.       NON.STOP = (PAGE.LENGTH < 1)
  3151.       I = 1
  3152.       Z$ = SYSOP.PASSWORD.1$ + " " + SYSOP.PASSWORD.2$
  3153. 10097 IF I > HIGHEST.USER.RECORD OR RET THEN _
  3154.          GOTO 10099
  3155.       GET 5,I
  3156.       X$ = MID$(USER.RECORD$,START.HASH,LEN.HASH)
  3157.       IF ASC(X$)=0 OR LEFT$(X$,3)="   " OR LEFT$(PASSWORD$,3)="   " THEN _
  3158.          GOTO 10098
  3159.       IF INSTR(X$,Z$) > 0 OR SYSOP.SECURITY.LEVEL <= CVI(MID$(USER.RECORD$,47,2)) THEN _
  3160.          IF NOT SYSOP THEN _
  3161.             GOTO 10098
  3162.       CALL ASKMORE ("",TRUE,TRUE,XX,FALSE)
  3163.       IF NO OR SUBROUTINE.PARAMETER = -1 THEN _
  3164.          GOTO 10099
  3165.       CALL QTPUT (LEFT$(X$,36) + CITY.STATE$ + LAST.DATE.TIME.ON$,1)
  3166. 10098 I = I + 1
  3167.       GOTO 10097
  3168. 10099 A$ = ""
  3169.       LSET USER.RECORD$ = USER.RECORD.HOLD$
  3170.       STOP.INTERRUPTS = TRUE
  3171.       RETURN
  3172. '
  3173. ' *  3 - COMMAND FROM SYSOP MENU (RECOVER MESSAGES)                           *
  3174. '
  3175. 10390 A$ = "Recover Msg #"
  3176.       GOSUB 12995
  3177.       CALL CHECKINT (B$(1))
  3178.       IF EC <> 0 THEN _
  3179.          GOTO 10390
  3180.       MESSAGE.TO.RECOVER = TESTED.INTEGER.VALUE
  3181.       IF MESSAGE.TO.RECOVER < 1 THEN _
  3182.          GOTO 12980
  3183.       GOSUB 5344
  3184.       ACTION.FLAG = FALSE
  3185.       CALL RECOVMSG (MESSAGE.TO.RECOVER,FIRST.MESSAGE.RECORD,ACTION.FLAG)
  3186. 10392 IF ACTION.FLAG THEN _
  3187.          GOTO 1900
  3188.       RETURN
  3189. '
  3190. ' *  4 - COMMAND FROM SYSOP MENU (DELETE COMMENTS)                            *
  3191. '
  3192. 10530 A$ = "Delete comments (Y/[N])"
  3193.       GOSUB 12995
  3194.       IF YES THEN _
  3195.          CALL OPENOUTW (COMMENTS.FILE$)
  3196.       CLOSE 2
  3197. 10550 RETURN
  3198. '
  3199. ' *  TIME LIMIT EXCEEDED EXIT                                                 *
  3200. '
  3201. 10553 CALL UPDTCALR ("Time limit exceeded",1)
  3202. '
  3203. ' *  Q - COMMAND FROM GLOBAL FUNCTIONS                                        *
  3204. '
  3205. 10560 CHAT.AVAILABLE = FALSE
  3206.       GOSUB 9100
  3207.       IF NOT SYSOP AND _
  3208.          USER.SECURITY.LEVEL < SECURITY.EXEMPT.FROM.EPILOG THEN _
  3209.            FILE.NAME$ = EPILOG$ : _
  3210.            GOSUB 11520
  3211.       IF LOCAL.USER.MODE OR NOT LOCAL.USER THEN _
  3212.          CALL UPDTCALR ("Logged off",1)
  3213.       CALL MUZAK (4)
  3214.       GOTO 10595
  3215. 10570 IF TIME.REMAINING! > 1 AND (TURBO.KEY.USER OR NOT EXPERT.USER) THEN _
  3216.          A$ = "End session (Y,[N])" : _
  3217.          GOSUB 12999 : _
  3218.          IF NOT YES THEN _
  3219.             RETURN
  3220.       GOTO 10560
  3221. 10590 CALL UPDTCALR ("Sleep Disconnect",1)
  3222. 10595 CALL GETIME
  3223.       GOSUB 13700
  3224.       CALL UPDATEU
  3225.       GOTO 13540
  3226. 10620 CALL UPDTCALR(LG$(LOGON.ERROR.INDEX),2)
  3227. 10621 IF ACTIVE.USER.NAME$ = "" THEN _
  3228.          ACTIVE.USER.NAME$ = "NAME UNAVAILABLE"
  3229.       Z$ = ACTIVE.USER.NAME$ + _
  3230.            " on at " + _
  3231.            CURRENT.DATE$ + _
  3232.            ", " + _
  3233.            TIM$ + _
  3234.            "** LOGON DENIED **, " + _
  3235.            BAUD.PARITY$
  3236.       NG$ = Z$ + _
  3237.             SPACE$(128 - LEN(Z$))
  3238. 10698 CALL MUZAK (5)
  3239.       A$ = "Access denied!"
  3240.       GOSUB 12976
  3241.       CALL DELAYIT (8 + BPS)
  3242.       GOTO 13545
  3243. '
  3244. ' *  M - COMMAND FROM UTILITY MENU (CHANGE MARGINS)                           *
  3245. '
  3246. 10925 UTILITY.MARGIN.CHANGE = TRUE
  3247.       GOSUB 3100
  3248.       UTILITY.MARGIN.CHANGE = FALSE
  3249.       RETURN
  3250. '
  3251. ' *  7 - COMMAND FROM SYSOP MENU (EXIT TO DOS)                                *
  3252. '
  3253. 10930 IF DOS.VERSION < 2 OR _
  3254.          (REQUIRED.RINGS = 0 AND NOT SHOOT.YOURSELF) THEN _
  3255.          CALL QTPUT("Remote DOS unavailable",1) : _
  3256.          RETURN
  3257. 10932 IF LOCAL.USER AND NOT DEBUG THEN _
  3258.          CALL QTPUT("Only for remote SYSOP's",1) : _
  3259.          RETURN
  3260.       CALL DOSEXIT
  3261.       SUBROUTINE.PARAMETER = -9
  3262.       CALL FINDFUNC
  3263.       GOTO 202
  3264. '
  3265. ' *  D - COMMAND FROM MAIN MENU (EXIT TO DOORS)                               *
  3266. '
  3267. 10970 IF NOT DOORS.AVAILABLE OR _
  3268.          (REQUIRED.RINGS = 0 AND NOT SHOOT.YOURSELF) THEN _
  3269.          CALL QTPUT("All doors locked!",1) : _
  3270.          RETURN
  3271.       IF TIME.LOCK AND 1 THEN _
  3272.          CALL TIMELOCK : _
  3273.          IF NOT OK THEN _
  3274.             RETURN
  3275. 10974 A1$ = MENU$(5)
  3276.       CALL SUBMENU ("Open which door, L)ist" + PRESS.ENTER.EXPERT$, _
  3277.                     A1$,"",".BAT","",_
  3278.                     USER.GRAPHIC.DEFAULT$,TRUE,FALSE,TRUE)
  3279.       IF Q = 0 THEN _
  3280.          RETURN
  3281.       IF SUBROUTINE.PARAMETER = -1 THEN _
  3282.          RETURN 10595
  3283. 10986 Z$ = FILE.NAME$
  3284.       CALL DOOREXIT
  3285. '
  3286. ' *  5 - COMMAND FROM SYSOP MENU (USER FILE MAINTENANCE)                      *
  3287. '
  3288. 11000 TU = USER.FILE.INDEX
  3289.       USER.RECORD.HOLD$ = USER.RECORD$
  3290.       REG.DATE.HOLD$ = REG.DATE$
  3291.       STOP.INTERRUPTS = TRUE
  3292.       I = 1
  3293.       SCAN.USERS = FALSE
  3294.       TURBO.KEY = -TURBO.KEY.USER
  3295.       A$ = "A)dd, L)st, P)rt, M)od, S)can users"
  3296.       GOSUB 12998
  3297. 11003 IF Q = 0 THEN _
  3298.          GOTO 20093
  3299.       QQ = 0
  3300.       Z$ = LEFT$(B$(1),1)
  3301.       CALL ALLCAPS (Z$)
  3302.       IF Z$ = "A" THEN _
  3303.          GOTO 12300 _
  3304.       ELSE IF Z$ = "M" THEN _
  3305.               STOP.INTERRUPTS = TRUE _
  3306.            ELSE IF Z$ = "P" THEN _
  3307.                    QQ = TRUE _
  3308.                 ELSE IF Z$ = "S" THEN _
  3309.                         SCAN.USERS = TRUE : _
  3310.                         STOP.INTERRUPTS = TRUE _
  3311.                      ELSE IF Z$ <> "L" THEN _
  3312.                              GOTO 11000
  3313. 11005 CALL OPENUSER (HIGHEST.USER.RECORD)
  3314.       GOSUB 9450
  3315.       Z = 1
  3316.       IF SCAN.USERS THEN _
  3317.          A$ = "Scan for N)ame, P)wd, C)ity/St, or L)evel" : _
  3318.          GOSUB 12999 : _
  3319.          A$ = "" : _
  3320.          SCAN.FUNCTION$ = LEFT$(B$(1),1) : _
  3321.          CALL ALLCAPS (SCAN.FUNCTION$) : _
  3322.          CR = 0 : _
  3323.          GOSUB 12979 : _
  3324.          GOSUB 12966 : _
  3325.          GOTO 12962
  3326. 11010 FOR J = Z TO HIGHEST.USER.RECORD
  3327.          GET 5,J
  3328. 11015    X$ = MID$(USER.RECORD$,START.HASH,LEN.HASH)
  3329.          IF ASC(X$) = 0 OR LEFT$(X$,3) = "   " THEN _
  3330.             GOTO 11310
  3331.          OF = CVI(SECURITY.LEVEL$)
  3332.          A$ = FG.4$ + RIGHT$("     " + STR$(LOC(5)),4) + _
  3333.               ":" + _
  3334.               FG.1$ + USER.NAME$ + _
  3335.               FG.2$ + "SECURITY" + _
  3336.               RIGHT$("     " + STR$(OF),5) + _
  3337.               " "
  3338. 11020    A$ = A$ + _
  3339.               FG.3$ + "Password = " + _
  3340.               PASSWORD$ + EMPHASIZE.OFF$
  3341. 11025    IF QQ THEN _
  3342.             CALL PRINTIT (A$)
  3343. 11027    GOSUB 12979
  3344.          IF RET <> 0 THEN _
  3345.             GOTO 11330
  3346.          IF OF < MINIMUM.LOGON.SECURITY THEN _
  3347.             A$ = EMPHASIZE.ON$ + "<Locked out>" + EMPHASIZE.OFF$ + SPACE$(7) : _
  3348.             GOTO 11030
  3349.          IF OF >= SYSOP.SECURITY.LEVEL THEN _
  3350.             A$ = EMPHASIZE.ON$ + "  (SYSOP)  " + EMPHASIZE.OFF$ + SPACE$(8) : _
  3351.             GOTO 11030
  3352.          A$ = SPACE$(19)
  3353. 11030    A$ = A$ + _
  3354.               LAST.DATE.TIME.ON$ + _
  3355.              "   " + _
  3356.              FG.4$ + CITY.STATE$ + EMPHASIZE.OFF$
  3357. 11100    IF QQ THEN _
  3358.             CALL PRINTIT (A$)
  3359. 11101    CALL QTPUT(A$,1)
  3360.         IF RET <> 0 THEN _
  3361.            GOTO 11330
  3362.         A$ = "  DOWNLOADS = " + _
  3363.              RIGHT$("     " + STR$(CVI(USER.DOWNLOADS$)),5) + _
  3364.              "   " + _
  3365.              "UPLOADS = " + _
  3366.              RIGHT$("     " + STR$(CVI(USER.UPLOADS$)),5) + _
  3367.              "   " + _
  3368.              " Times on ="
  3369.          A$ = A$ + RIGHT$("     " + STR$(CVI(MID$(USER.OPTIONS$,1,2))),5) + _
  3370.              "   " + _
  3371.              "TIME USED = " + _
  3372.              RIGHT$("    " + STR$(CVI(ELAPSED.TIME$)),4) + _
  3373.              " Min"
  3374.         IF QQ THEN _
  3375.            CALL PRINTIT (A$)
  3376. 11105   CALL QTPUT (A$,1)
  3377.         IF RET <> 0 THEN _
  3378.            GOTO 11330
  3379.          IF NOT ENFORCE.UPLOAD.DOWNLOAD.RATIOS THEN _
  3380.             GOTO 11106
  3381.          A$ = "BYTES: Dwn=" + STR$(CVS(DL.BYTES$)) + _
  3382.               "  Up=" + STR$(CVS(UL.BYTES$)) + _
  3383.               " TODAY Dwn: #=" + STR$(CVS(TODAY.DL$)) + _
  3384.               " Bytes=" + STR$(CVS(TODAY.BYTES$))
  3385.          IF QQ THEN _
  3386.             CALL PRINTIT (A$)
  3387.          CALL QTPUT (A$,1)
  3388.          IF RET <> 0 THEN _
  3389.             GOTO 11330
  3390. 11106   IF NOT RESTRICT.BY.DATE THEN _
  3391.            GOTO 11107
  3392.         GOSUB 11480
  3393.         A$ = "Registration date = " + _
  3394.              REG.DISPLAY.DATE$
  3395.         IF QQ THEN _
  3396.            CALL PRINTIT (A$)
  3397.         CALL QTPUT (A$,1)
  3398.         IF RET <> 0 THEN _
  3399.            GOTO 11330
  3400. 11107   IF NOT STOP.INTERRUPTS THEN _
  3401.            GOTO 11310
  3402. 11110   A$ = "D)el,F)ind,M)enu,N)ew pwd,P)rnt,R)eset grph,Q)uit,S)ecLvl,U)ser#"
  3403.         IF RESTRICT.BY.DATE THEN _
  3404.            A$ = A$ + _
  3405.                 ",$)RegDate"
  3406.         GOSUB 12999
  3407.         IF NOT SCAN.USERS AND Q = 0 THEN _
  3408.            GOTO 11310
  3409. 11115   Z$ = LEFT$(B$(1),1)
  3410.         CALL ALLCAPS (Z$)
  3411.         X = INSTR("DNPQFSMR$U",Z$)
  3412.         IF Z$ = "" AND SCAN.USERS THEN _
  3413.            GOTO 12965
  3414.         ON X GOTO 11130,11160,11220,11320,11340,11390,11330,11400,11450,11127
  3415. 11125   Z = VAL(B$)
  3416.         IF Z < 1 OR Z > HIGHEST.USER.RECORD - 1 THEN _
  3417.            GOTO 11310
  3418.         GOTO 11010
  3419. 11127   A$ = "What record #"
  3420.         GOSUB 12995
  3421.         GOTO 11125
  3422. '
  3423. ' *  D - COMMAND FROM 5- USER MAINTENANCE OPTIONS (DELETE USER)               *
  3424. '
  3425. 11130   A$ = "Delete user (Y/[N])"
  3426.         GOSUB 12995
  3427.         IF YES THEN _
  3428.            LSET USER.NAME$ = CHR$(0) + _
  3429.                              "deleted user" : _
  3430.            LSET SECURITY.LEVEL$ = MKI$(MINIMUM.LOGON.SECURITY - 1) : _
  3431.            LSET LAST.DATE.TIME.ON$ = "01-01-80" + _
  3432.                                      " " + _
  3433.                                      TIME.LOGGED.ON$
  3434.         GOTO 11290
  3435. '
  3436. ' *  N - COMMAND FROM 5- USER MAINTENANCE OPTIONS (CHANGE USER PASSWORD)      *
  3437. '
  3438. 11160   GOSUB 12800
  3439.         GOTO 11290
  3440. '
  3441. ' *  P - COMMAND FROM 5- USER MAINTENANCE OPTIONS (PRINT USER FILE)           *
  3442. '
  3443. 11220   QQ = NOT QQ
  3444.         GOTO 11015
  3445. 11290   USER.FILE.INDEX = LOC(5)
  3446.         GOSUB 12989
  3447.         GOSUB 9440
  3448.         GOSUB 12991
  3449.         USER.FILE.INDEX = 0
  3450.         GOTO 11015
  3451. 11310   IF SCAN.USERS THEN _
  3452.            GOTO 12965
  3453. 11311 NEXT
  3454. '
  3455. ' *  Q - COMMAND FROM 5- USER MAINTENANCE OPTIONS (QUIT TO MAIN MENU)         *
  3456. '
  3457. 11320 USER.FILE.INDEX = TU
  3458.       LSET USER.RECORD$ = USER.RECORD.HOLD$
  3459.       REG.DATE$ = REG.DATE.HOLD$
  3460.       RETURN 1200
  3461. '
  3462. ' *  M - COMMAND FROM 5- USER MAINTENANCE OPTIONS (MAIN USER MAINT. MENU)     *
  3463. '
  3464. 11330 CLOSE 2
  3465.       GOTO 11000
  3466. '
  3467. ' *  F - COMMAND FROM 5- USER MAINTENANCE OPTIONS (FIND USER)                 *
  3468. '
  3469. 11340 A$ = PROMPT.HASH$ + _
  3470.            " to find"
  3471.       CALL SKIPLINE (1)
  3472.       GOSUB 12995
  3473.       IF Q = 0 THEN _
  3474.          GOTO 11340
  3475.       TEMP.HASH.VALUE$ = B$
  3476.       IF LEN(TEMP.HASH.VALUE$) < 3 OR LEN(TEMP.HASH.VALUE$) > LEN.HASH THEN _
  3477.          GOTO 11340
  3478.       CALL ALLCAPS (TEMP.HASH.VALUE$)
  3479.       IF START.INDIV < 1 THEN _
  3480.          GOTO 11345
  3481. 11342 A$ = PROMPT.INDIV$ + _
  3482.            " to find"
  3483.       GOSUB 12995
  3484.       IF Q = 0 THEN _
  3485.          GOTO 11342
  3486.       TEMP.INDIV.VALUE$ = B$
  3487.       IF LEN(TEMP.INDIV.VALUE$) < 3 OR LEN(TEMP.INDIV.VALUE$) > LEN.INDIV THEN _
  3488.          GOTO 11342
  3489.       CALL ALLCAPS (TEMP.INDIV.VALUE$)
  3490. 11345 GOSUB 12600
  3491.       GOSUB 12984
  3492.       USER.FILE.INDEX = 0
  3493.       IF FOUND THEN _
  3494.          GOTO 11015
  3495. 11380 A$ = TEMP.HASH.VALUE$ + _
  3496.            " " + _
  3497.            TEMP.INDIV.VALUE$ + _
  3498.            " not found"
  3499.       GOSUB 12977
  3500.       GOTO 11310
  3501. '
  3502. ' *  S - COMMAND FROM 5- USER MAINTENANCE OPTIONS (CHANGE USER SECURITY)      *
  3503. '
  3504. 11390 GOSUB 11395
  3505.       LSET SECURITY.LEVEL$ = MKI$(OF)
  3506.       GOTO 11290
  3507. 11395 A$ = "New sec level"
  3508.       GOSUB 12995
  3509.       CALL ALLCAPS (B$(1))
  3510.       Z$ = B$(1)
  3511.       OF = VAL(Z$)
  3512.       IF OF > USER.SECURITY.LEVEL THEN _
  3513.          OF = USER.SECURITY.LEVEL
  3514.       RETURN
  3515. '
  3516. ' *  R - COMMAND FROM 5- USER MAINTENANCE OPTIONS (RESET USER GRAPHICS)       *
  3517. '
  3518. 11400 LSET USER.OPTIONS$ = LEFT$(USER.OPTIONS$,5) + _
  3519.                            "0" + _
  3520.                            MID$(USER.OPTIONS$,7)
  3521.       GOTO 11290
  3522. '
  3523. ' *  $ - COMMAND FROM 5 - USER MAINTENANCE (CHANGE REGISTRATION DATE)         *
  3524. '
  3525. 11450 A$ = "Enter new registration date (MM-DD-YY)"
  3526.       GOSUB 12995
  3527.       IF Q = 0 THEN _
  3528.          GOTO 11015
  3529. 11455 WORK.DATE$ = B$(1)
  3530.       IF LEN(WORK.DATE$) < 8 THEN _
  3531.          GOTO 11450
  3532.       GOSUB 11470
  3533.       IF NOT OK THEN _
  3534.          GOTO 11450
  3535.       LSET USER.OPTIONS$ = LEFT$(USER.OPTIONS$,10) + _
  3536.                            REG.DATE$ + _
  3537.                            MID$(USER.OPTIONS$,13)
  3538.       GOSUB 11480
  3539.       REG.DATE$ = REG.DATE.HOLD$
  3540.       GOTO 11290
  3541. '
  3542. ' *  CALCULATE REGISTRATION DATES                                             *
  3543. '
  3544. 11470 IF LEN(WORK.DATE$) < 10 THEN _
  3545.          WORK.DATE$ = LEFT$(WORK.DATE$,6) + _
  3546.                       "19" + _
  3547.                       RIGHT$(WORK.DATE$,2)
  3548.       TODAY.REG.YY = VAL(MID$(WORK.DATE$,7))
  3549.       TODAY.REG.MM = VAL(LEFT$(WORK.DATE$,2))
  3550.       TODAY.REG.DD = VAL(MID$(WORK.DATE$,4,2))
  3551.       OK = TODAY.REG.YY > 1979 AND TODAY.REG.MM > 0 AND _
  3552.            TODAY.REG.MM < 13 AND TODAY.REG.DD > 0 AND _
  3553.            TODAY.REG.DD < 32
  3554.       IF OK THEN _
  3555.          CALL TWOBYTEDATE (TODAY.REG.YY,TODAY.REG.MM,TODAY.REG.DD,REG.DATE$)
  3556.       RETURN
  3557. 11480 X$ = MID$(USER.OPTIONS$,11,2)
  3558.       IF CVI(X$) <> 0 THEN _
  3559.          REG.DATE$ = X$ : _
  3560.       ELSE GOSUB 11482
  3561.       CALL UNCDATE (REG.DATE$,USER.REG.YY,USER.REG.MM,USER.REG.DD,REG.DISPLAY.DATE$)
  3562.       IF CVI(X$) = 0 THEN _
  3563.          REG.DISPLAY.DATE$ = "00-00-00"
  3564.       RETURN
  3565. 11482 WORK.DATE$ = DATE$
  3566.       GOTO 11470
  3567. '
  3568. ' *  ALLOW USERS TO ANSWER A "QUESTIONNAIRE" BASED ON THE RBBS-PC SCRIPT      *
  3569. '
  3570. 11520 QUESTIONNAIRE.ABORTED = FALSE
  3571.       QUESTIONNAIRE.CHAIN.STARTED = FALSE
  3572.       CALL FINDIT (FILE.NAME$)
  3573.       IF NOT OK THEN _
  3574.          RETURN
  3575.       REDIM A$(256)
  3576.       CALL ASKUSERS
  3577.       IF ADJUSTED.SECURITY THEN _
  3578.          GOSUB 12989 : _
  3579.          LSET SECURITY.LEVEL$ = MKI$(USER.SECURITY.LEVEL) : _
  3580.          GOSUB 9440 : _
  3581.          GOSUB 12991 : _
  3582.          CALL CALLOPT : _
  3583.          CALL XFERTYPE (2,TRUE) : _
  3584.          GOSUB 5135
  3585.       REDIM A$(ADIM)
  3586.       IF SUBROUTINE.PARAMETER = -1 THEN _
  3587.          RETURN 10595
  3588.       OK = TRUE
  3589.       RETURN
  3590. '
  3591. ' *  A - COMMAND FROM 5- USER MAINTENANCE OPTIONS (ADD USER)                  *
  3592. '
  3593. 12300 A1$ = ""
  3594.       ATTEMPTS = 0
  3595.       USER.SECURITY.LEVEL.SAVE = USER.SECURITY.LEVEL
  3596.       FIRST.NAME.SAVE$ = FIRST.NAME$
  3597.       LAST.NAME.SAVE$ = LAST.NAME$
  3598.       ACTIVE.USER.NAME.SAVE$ = ACTIVE.USER.NAME$
  3599.       CITY.STATE.SAVE$ = CI$
  3600.       HASH.VALUE.SAVE$ = HASH.VALUE$
  3601.       INDIV.VALUE.SAVE$ = INDIV.VALUE$
  3602.       GOSUB 12500
  3603.       GOSUB 12840
  3604.       GOSUB 12850
  3605.       GOSUB 12598
  3606.       IF USER.FILE.INDEX = 0 THEN _
  3607.          GOSUB 12984 : _
  3608.          GOTO 12330
  3609.       IF FOUND THEN _
  3610.          D$ = "User already exists" : _
  3611.          GOSUB 1315 : _
  3612.          GOSUB 12984 : _
  3613.          GOTO 12330
  3614. 12310 GOSUB 12630
  3615.       GOSUB 12800
  3616.       GOSUB 11395
  3617.       TEMP.SECURITY.LEVEL = OF
  3618.       GOSUB 12900
  3619.       LSET LAST.DATE.TIME.ON$ = CURRENT.DATE$ + _
  3620.                                 " " + _
  3621.                                 TIME.LOGGED.ON$
  3622.       GOSUB 12960
  3623.       CALL ALLCAPS (B$)
  3624.       LSET CITY.STATE$ = B$
  3625.       LSET ELAPSED.TIME$ = MKI$(0)
  3626.       IF START.HASH > 1 THEN _
  3627.          MID$(USER.RECORD$,START.HASH,LEN.HASH) = HASH.VALUE$
  3628.       IF START.INDIV > 1 THEN _
  3629.          MID$(USER.RECORD$,START.INDIV,LEN.INDIV) = INDIV.VALUE$
  3630.       GOSUB 9440
  3631. 12320 GOSUB 12991
  3632. 12330 USER.SECURITY.LEVEL = USER.SECURITY.LEVEL.SAVE
  3633.       FIRST.NAME$ = FIRST.NAME.SAVE$
  3634.       LAST.NAME$ = LAST.NAME.SAVE$
  3635.       ACTIVE.USER.NAME$ = ACTIVE.USER.NAME.SAVE$
  3636.       CI$ = CITY.STATE.SAVE$
  3637.       HASH.VALUE$ = HASH.VALUE.SAVE$
  3638.       INDIV.VALUE$ = INDIV.VALUE.SAVE$
  3639.       USER.FILE.INDEX = TU
  3640.       LSET USER.RECORD$ = USER.RECORD.HOLD$
  3641.       GOTO 11000
  3642. '
  3643. ' *  GET USER FIRST AND LAST NAMES                                            *
  3644. '
  3645. 12500 IF ATTEMPTS > 5 THEN _
  3646.          FF = TRUE : _
  3647.          RETURN
  3648. 12510 GOSUB 12700
  3649.       ATTEMPTS = ATTEMPTS + 1
  3650.       A$ = A1$ + _
  3651.            FIRST.NAME.PROMPT$
  3652.       CALL SKIPLINE (1)
  3653.       LOGON.ACTIVE = TRUE
  3654.       GOSUB 12555
  3655.       LOGON.ACTIVE = FALSE
  3656.       CALL TRIM (Z$)
  3657.       FIRST.NAME$ = Z$
  3658.       IF Q <> 1 THEN _
  3659.          I = 2: _
  3660.          GOSUB 12556 : _
  3661.          GOTO 12540
  3662. 12530 A$ = A1$ + _
  3663.            LAST.NAME.PROMPT$
  3664.       GOSUB 12555
  3665.       IF Q > 0 AND INSTR(B$,";") = 0 THEN _
  3666.          Z$ = B$ _
  3667.       ELSE Z$ = B$(1)
  3668.       CALL ALLCAPS (Z$)
  3669. 12540 CALL TRIM (Z$)
  3670.       LAST.NAME$ = Z$
  3671.       IF LEN(LAST.NAME$) < 2 THEN _
  3672.          IF LEN(FIRST.NAME$) > 2 THEN _
  3673.             GOTO 12500
  3674.       IF (LEN(FIRST.NAME$) + LEN(LAST.NAME$)) > 30 THEN _
  3675.          GOTO 12500
  3676.       IF USER.SECURITY.LEVEL.SAVE < SYSOP.SECURITY.LEVEL THEN _
  3677.          IF (LEN(FIRST.NAME$) < 2 OR LEN(LAST.NAME$) < 2) THEN _
  3678.             GOTO 12500 _
  3679.          ELSE IF LEFT$(FIRST.NAME$,1)=" " OR LEFT$(LAST.NAME$,1)=" " THEN _
  3680.                  GOTO 12500
  3681. 12550 ACTIVE.USER.NAME$ = MID$(FIRST.NAME$ + " " + LAST.NAME$,1,31)
  3682.       IF HASH.INDIV > 1 THEN _
  3683.          IF Q < 3 THEN _
  3684.             GOSUB 12558 : _
  3685.             IF NO THEN _
  3686.                GOTO 12500
  3687.       Z$ = FIRST.NAME$
  3688.       RETURN
  3689. '
  3690. ' *  CHECK FOR NAMES NOT ALLOWED                                              *
  3691. '
  3692. 12555 GOSUB 12995
  3693.       IF Q = 0 THEN _
  3694.          RETURN 12500
  3695.       I = 1
  3696. 12556 Z$ = B$(I)
  3697. 12557 CALL ALLCAPS (Z$)
  3698.       CALL REMNONALF (Z$,31,91)
  3699.       RETURN
  3700. 12558 A$ = "Are you '" + _
  3701.            ACTIVE.USER.NAME$ + _
  3702.            "' ([Y],N)"
  3703.       GOSUB 12995
  3704.       RETURN
  3705. 12570 FOUND = FALSE
  3706.       CALL OPENWORK (TRASHCAN.FILE$)
  3707.       IF EC = 53 THEN _
  3708.          GOTO 710
  3709. 12580 IF EOF(2) THEN _
  3710.          RETURN
  3711.       INPUT #2,INVALID.NAME$
  3712.       IF Z$ <> INVALID.NAME$ THEN _
  3713.          GOTO 12580
  3714.       FOUND = TRUE
  3715.       RETURN
  3716. 12595 CALL QTPUT ("Real name required. Call traced & recorded",1)
  3717.       CALL UPDTCALR ("Name violation: "+ACTIVE.USER.NAME$,1)
  3718.       GOTO 10621
  3719. '
  3720. ' *  COMMON SEARCH USER FILE ROUTINE                                          *
  3721. '
  3722. 12598 TEMP.HASH.VALUE$ = HASH.VALUE$
  3723.       TEMP.INDIV.VALUE$ = INDIV.VALUE$
  3724. 12600 GOSUB 4910
  3725.       GOSUB 12988
  3726.       IF IN.CONF.MENU THEN _
  3727.          IF NOT PRIVATE.DOOR THEN _
  3728.             CALL QTPUT ("Checking Users...",1)
  3729. 12605 CALL OPENUSER (HIGHEST.USER.RECORD)
  3730.       GOSUB 9450
  3731.       CALL FINDUSER (TEMP.HASH.VALUE$,TEMP.INDIV.VALUE$,START.HASH,LEN.HASH,_
  3732.                      START.INDIV,LEN.INDIV,HIGHEST.USER.RECORD,FOUND,_
  3733.                      USER.FILE.INDEX,SL)
  3734.      IF FOUND THEN _
  3735.         RETURN
  3736.      IF CURRENT.USER.COUNT < (HIGHEST.USER.RECORD-1)*.95 THEN _
  3737.         RETURN
  3738.      A$ = "No room for new users in " + GRN$
  3739.      CALL UPDTCALR (A$,2)
  3740.      IF ACTIVE.USER.FILE$ <> MAIN.USER.FILE$ THEN _
  3741.         USER.FILE.INDEX = 0 : _
  3742.         RETURN
  3743.       IF REMEMBER.NEW.USERS AND NOT SURVIVE.NOUSER.ROOM THEN _
  3744.          GOSUB 1397
  3745.       USER.FILE.INDEX = 0
  3746.       IF SURVIVE.NOUSER.ROOM THEN _
  3747.          REMEMBER.NEW.USERS = FALSE
  3748.       RETURN
  3749. '
  3750. ' *  AUGMENT USER COUNT, LOCK 4 REC BLOCK IN USER, UNLOCK FILES        *
  3751. '
  3752. 12630 GOSUB 23000
  3753.       CURRENT.USER.COUNT = CURRENT.USER.COUNT + (SL = 0) * REMEMBER.NEW.USERS
  3754. 12632 GOSUB 24000
  3755.       GOSUB 12985
  3756.       IF REMEMBER.NEW.USERS THEN _
  3757.          GOSUB 12989
  3758.       GOSUB 12990
  3759.       RETURN
  3760. '
  3761. ' *  INFORM USER OF WHAT CONFERENCE USER FILE HE IS VIEWING                   *
  3762. '
  3763. 12700 IF CONFERENCE.MODE THEN _
  3764.          A$ = "Users of " + _
  3765.               GRN$ + _
  3766.               ":" : _
  3767.          GOSUB 12979
  3768.       RETURN
  3769. '
  3770. ' *  GET PASSWORD FROM NEWUSER                                                *
  3771. '
  3772. 12800 A$ = "Enter PASSWORD you'll use to logon again"
  3773.       GOSUB 12995
  3774.       IF USER.SECURITY.LEVEL.SAVE < SYSOP.SECURITY.LEVEL THEN _
  3775.          IF B$ = SPACE$(LEN(B$)) THEN _
  3776.             GOTO 12800
  3777.       IF LEN(B$) > 15 THEN _
  3778.          CALL QTPUT ("15 Char. Max",1) : _
  3779.          GOTO 12800
  3780.       CALL ALLCAPS (B$)
  3781.       Z$ = B$
  3782.       LSET PASSWORD$ = Z$
  3783.       RETURN
  3784. '
  3785. ' *  GET HASH VALUE FOR CURRENT USER TO LOOK UP IN THE USER'S FILE            *
  3786. '
  3787. 12840 IF START.HASH = 1 THEN _
  3788.          HASH.VALUE$ = ACTIVE.USER.NAME$ : _
  3789.          RETURN
  3790.       X$ = A1$ + _
  3791.            PROMPT.HASH$
  3792.       CALL UNTILRIGHT (X$,HASH.VALUE$,2,LEN.HASH)
  3793.       RETURN
  3794. '
  3795. ' *  GET FIELD TO INDIVIDUATE ONE USER FROM ANOTHER (NAME FIELD IS DEFAULT)   *
  3796. '
  3797. 12850 IF START.INDIV < 1 THEN _
  3798.          RETURN
  3799.       IF START.INDIV = 1 THEN _
  3800.          INDIV.VALUE$ = ACTIVE.USER.NAME$ : _
  3801.          RETURN
  3802.       X$ = A1$ + _
  3803.            PROMPT.INDIV$
  3804.       CALL UNTILRIGHT (X$,INDIV.VALUE$,2,LEN.INDIV)
  3805.       RETURN
  3806. '
  3807. ' *  SET NEWUSER DEFAULTS                                                     *
  3808. '
  3809. 12900 LSET USER.NAME$ = ACTIVE.USER.NAME$
  3810.       LSET USER.OPTIONS$ = MKI$(0) + _
  3811.                            MKI$(0) + _
  3812.                            " 0" + _
  3813.                            MKI$(64) + _
  3814.                            MKI$(16) + _
  3815.                            MKI$(0) + _
  3816.                            CHR$(23) + _
  3817.                            DEFAULT.ECHOER$
  3818.       LSET USER.DOWNLOADS$ = MKI$(0)
  3819.       LSET USER.UPLOADS$ = MKI$(0)
  3820.       IF ENFORCE.UPLOAD.DOWNLOAD.RATIOS THEN _
  3821.          LSET TODAY.DL$ = MKS$(0) : _
  3822.          LSET TODAY.BYTES$ = MKS$(0) : _
  3823.          LSET DL.BYTES$ = MKS$(0) : _
  3824.          LSET UL.BYTES$ = MKS$(0)
  3825.       LSET SECURITY.LEVEL$ = MKI$(TEMP.SECURITY.LEVEL)
  3826.       LSET ELAPSED.TIME$ = MKI$(0)
  3827.       RETURN
  3828. '
  3829. ' *  GET CITY AND STATE FROM NEWUSER                                          *
  3830. '
  3831. 12960 A$ = A1$ + _
  3832.            USER.LOCATION$
  3833.       GOSUB 12995
  3834.       IF Q = 0 THEN _
  3835.          GOTO 12960
  3836.       IF B$ = SPACE$(LEN(B$)) THEN _
  3837.          GOTO 12960
  3838.       CALL ALLCAPS (B$)
  3839.       LSET CITY.STATE$ = B$
  3840.       CI$ = B$
  3841.       RETURN
  3842. '
  3843. ' *  S - COMMAND FROM 5 - USER MAINTENANCE OPTIONS (SCAN USERS)               *
  3844. '
  3845. 12962 X = 0
  3846.       FF = FALSE
  3847.       A$ = "String to search"
  3848.       GOSUB 12998
  3849.       IF Q = 0 THEN _
  3850.          GOTO 11000
  3851.       CALL ALLCAPS (B$)
  3852.       WK$ = B$
  3853.       IF SCAN.FUNCTION$ = "L" THEN _
  3854.          WK$ = "," + _
  3855.                STR$(VAL(WK$)) + _
  3856.                ","
  3857. 12963 GET 5,I
  3858.       GOSUB 12966
  3859.       X = INSTR(SCAN.FIELD$,WK$)
  3860.       IF X > 0 THEN _
  3861.          GOTO 11015
  3862. 12965 I = I + 1
  3863.       IF I > HIGHEST.USER.RECORD - 1 THEN _
  3864.          GOTO 11000
  3865.       X = 0
  3866.       GOTO 12963
  3867. 12966 FF = INSTR("NCPL",SCAN.FUNCTION$)
  3868. 12967 ON FF GOTO 12968,12969,12970,12972
  3869.       GOTO 11000
  3870. '
  3871. ' *  N - COMMAND FROM 5 - USER MAINTENANCE SCAN FUNCTION (SEARCH FOR NAME)    *
  3872. '
  3873. 12968 SCAN.FIELD$ = USER.NAME$
  3874.       RETURN
  3875. '
  3876. ' *  C - COMMAND FROM 5 - USER MAINTENANCE SCAN FUNCTION (SEARCH FOR CITY/ST) *
  3877. '
  3878. 12969 SCAN.FIELD$ = CITY.STATE$
  3879.       RETURN
  3880. '
  3881. ' *  P - COMMAND FROM 5 - USER MAINTENANCE SCAN FUNCTION (SEARCH FOR PASSWORD)*
  3882. '
  3883. 12970 SCAN.FIELD$ = PASSWORD$
  3884.       RETURN
  3885. '
  3886. ' *  L - COMMAND FROM 5 - USER MAINTENANCE SCAN FUNCTION (SEARCH FOR LEVEL)   *
  3887. '
  3888. 12972 SCAN.FIELD$ = "," + _
  3889.                     STR$(CVI(SECURITY.LEVEL$)) + _
  3890.                     ","
  3891.       RETURN
  3892. '
  3893. ' * CALLS INTO SEPARATELY COMPILED SUBROUTINES (RBBS-SUB)                     *
  3894. '
  3895. '
  3896. ' * STANDARD ENTRY FOR RBBS-PC'S COMMON TERMINAL OUTPUT ROUTINE               *
  3897. '
  3898. 12975 SUBROUTINE.PARAMETER = 1
  3899.       GOTO 12981
  3900. 12976 SUBROUTINE.PARAMETER = 2
  3901.       GOTO 12981
  3902. 12977 SUBROUTINE.PARAMETER = 3
  3903.       GOTO 12981
  3904. 12978 SUBROUTINE.PARAMETER = 4
  3905.       GOTO 12981
  3906. 12979 SUBROUTINE.PARAMETER = 5
  3907.       GOTO 12981
  3908. 12980 SUBROUTINE.PARAMETER = 6
  3909. 12981 CALL TPUT
  3910. 12983 IF SUBROUTINE.PARAMETER < 0 THEN _
  3911.          GOTO 202
  3912.       IF SUBROUTINE.PARAMETER = 8 THEN _
  3913.          GOSUB 12995
  3914.       RETURN
  3915. '
  3916. ' * STANDARD ENTRY FOR RBBS-PC'S FILE LOCKING WHEN RUNNING MULTIPLE RBBS-PC'S *
  3917. '
  3918. 12984 SUBROUTINE.PARAMETER = 1  ' LOCK USERS & MESSAGES
  3919.       GOTO 12994
  3920. 12985 SUBROUTINE.PARAMETER = 2  ' UNLOCK MESSAGES AND FLUSH
  3921.       FLUSHED = TRUE
  3922.       GOTO 12994
  3923. 12986 SUBROUTINE.PARAMETER = 3  ' LOCK MESSAGES
  3924.       GOTO 12994
  3925. 12987 SUBROUTINE.PARAMETER = 4  ' UNLOCK MESSAGES
  3926.       GOTO 12994
  3927. 12988 SUBROUTINE.PARAMETER = 5  ' LOCK USERS
  3928.       GOTO 12994
  3929. 12989 SUBROUTINE.PARAMETER = 6  ' LOCK USER BLOCK
  3930.       GOTO 12994
  3931. 12990 SUBROUTINE.PARAMETER = 7  ' UNLOCK USERS
  3932.       GOTO 12994
  3933. 12991 SUBROUTINE.PARAMETER = 8  ' UNLOCK USER BLOCK
  3934.       GOTO 12994
  3935. 12992 SUBROUTINE.PARAMETER = 9  ' LOCK COMMENTS/UPLOAD DIR
  3936.       GOTO 12994
  3937. 12993 SUBROUTINE.PARAMETER = 10 ' UNLOCK COMMENTS/UPLOAD DIR
  3938. 12994 CALL FILELOCK
  3939.       IF FLUSHED THEN _
  3940.          FIELD 1,128 AS MESSAGE.RECORD$ : _
  3941.          FLUSHED = FALSE
  3942.       IF SUBROUTINE.PARAMETER = -1 THEN _
  3943.          SUBROUTINE.PARAMETER = -9 : _
  3944.          CALL FINDFUNC : _
  3945.          GOTO 202
  3946.       RETURN
  3947. '
  3948. ' * STANDARD ENTRY FOR RBBS-PC'S COMMON TERMINAL INPUT ROUTINE                *
  3949. '
  3950. 12995 SUBROUTINE.PARAMETER = 1
  3951. 12996 CALL TGET
  3952. 12997 IF SUBROUTINE.PARAMETER < 0 THEN _
  3953.          GOTO 202
  3954.       RETURN
  3955. 12998 A$ = A$ + _
  3956.            PRESS.ENTER$
  3957.       GOTO 12995
  3958. 12999 TURBO.KEY = -TURBO.KEY.USER
  3959.       GOTO 12995
  3960. '
  3961. ' *  MAIN SYSTEM ERROR TRAP - ALL ERRORS PASS THROUGH THIS ROUTINE            *
  3962. '
  3963. 13000 IF DEBUG THEN _
  3964.          A$ = "DEBUG Trap ERL=" + _
  3965.               STR$(EL) + _
  3966.               " ERR=" + _
  3967.               STR$(EC) : _
  3968.               CALL PRINTIT(A$) : _
  3969.               D$ = A$ : _
  3970.               GOSUB 1315
  3971.       IF EL = 1905 AND EC = 63 THEN _
  3972.          CLOSE 1 : _
  3973.          KILL ACTIVE.MESSAGE.FILE$ : _
  3974.          GOTO 5350
  3975.       IF EL = 4371 AND EC = 6 THEN _
  3976.          GOTO 1200
  3977.       IF EL =  4740 THEN _
  3978.          GOTO 4745
  3979.       IF EL =  5151 AND EC = 62 THEN _
  3980.          CALL UPDTCALR (PASSWORDS.FILE$ + " bad format!",2) : _
  3981.          GOTO 5160
  3982. 13500 CALL LOGERROR
  3983.       CALL QTPUT (CALLERS.RECORD$,1)
  3984.       GOTO 1200
  3985. '
  3986. ' * COMMON EXIT FROM RBBS-PC (I.E. "ABANDON ALL HOPE OH YE WHO ENTER HERE")   *
  3987. '
  3988. 13538 CALL UPDTCALR ("No calls.  Recycling.",1)
  3989.       GOTO 13549
  3990. 13540 IF LOCAL.USER THEN _
  3991.          IF NOT LOCAL.USER.MODE THEN _
  3992.             GOTO 13549
  3993. 13543 IF (NOT SYSOP) THEN _
  3994.          IF ((USER.FILE.INDEX = 0 AND REMEMBER.NEW.USERS) OR _
  3995.             NEW.USER = TRUE) THEN _
  3996.             GOTO 13549
  3997. 13545 CALL UPDATEC
  3998. 13549 GOSUB 13700
  3999.       IF LOCAL.USER OR _
  4000.          MODEM.OFFHOOK THEN _
  4001.          GOTO 13555
  4002.       IF NOT FOSSIL THEN _
  4003.          OUT MODEM.CONTROL.REGISTER,INP(MODEM.CONTROL.REGISTER) AND 254 : _
  4004.          CALL DELAYIT (DTR.DROP.DELAY) : _
  4005.          OUT MODEM.CONTROL.REGISTER,INP(MODEM.CONTROL.REGISTER) OR 1 : _
  4006.          GOTO 13553
  4007. 13550 CALL FOSSTATUS(COMPORT%,STATUS%)
  4008.       STATUS% = STATUS% AND &H4000
  4009.       IF STATUS% <> &H4000 THEN _
  4010.          CALL DELAYIT (8 + BPS)
  4011.       STATE%=0
  4012.       CALL FOSDTR(COMPORT%,STATE%)
  4013.       CALL DELAYIT (DTR.DROP.DELAY)
  4014.       STATE%=1
  4015.       CALL FOSDTR(COMPORT%,STATE%)
  4016. 13553 CALL DELAYIT (DTR.DROP.DELAY)
  4017.       CALL MODEMPUT (MODEM.GO.OFFHOOK.COMMAND$)
  4018.       CALL DELAYIT (MODEM.COMMAND.DELAY.TIME)
  4019. 13555 ACTIVE.MESSAGE.FILE$ = ORIG.MESSAGE.FILE$
  4020.       GOSUB 12986
  4021.       GOSUB 5344
  4022.       GET 1,NODE.RECORD.INDEX
  4023.       EXIT.TO.DOORS = FALSE
  4024.       MID$(MESSAGE.RECORD$,57,1) = "I"
  4025.       MID$(MESSAGE.RECORD$,40,2) = STR$(EXIT.TO.DOORS)
  4026.       PUT 1,NODE.RECORD.INDEX
  4027.       GOSUB 12985
  4028.       CLOSE 1,2,4,5
  4029.       IF NOT FOSSIL THEN _
  4030.          CLOSE 3
  4031.       IF RECYCLE.TO.DOS THEN _
  4032.          GOTO 203
  4033.       RUN 100
  4034. 13600 CLS
  4035.       LOCATE ,,0
  4036.       D$ = DF$ + _
  4037.            " file not found/invalid.  Run CONFIG."
  4038.       GOSUB 1315
  4039.       CALL DELAYIT (3)
  4040.       GOTO 203
  4041. 13700 IF MESSAGE.FILE.LOCK THEN _
  4042.          GOSUB 12987
  4043. 13710 IF USER.FILE.LOCK THEN _
  4044.          GOSUB 12990
  4045. 13720 IF USER.BLOCK.LOCK THEN _
  4046.          GOSUB 12991
  4047.       RETURN
  4048. '
  4049. ' *  C/R - COMMAND FROM 5 - USER MAINTENANCE SCAN FUNCTION (QUIT TO MAIN MENU)*
  4050. '
  4051. 20093 IF USER.FILE.INDEX > 0 THEN _
  4052.          CALL OPENUSER (HIGHEST.USER.RECORD) : _
  4053.          GET 5,USER.FILE.INDEX : _
  4054.          GOSUB 9500
  4055. 20095 RETURN 1200
  4056. '
  4057. ' *  V - COMMAND FROM FILES MENU (VIEW ARC CONTENTS)                          *
  4058. '
  4059. 20140 CALL GETARC
  4060.       IF SUBROUTINE.PARAMETER = -1 THEN _
  4061.          GOTO 13540
  4062.       IF DENY.ACCESS THEN _
  4063.          GOTO 1386
  4064.       RETURN
  4065. '
  4066. ' * GO TO THE FILE SYSTEM TO LIST THE SYSOP'S COMMENTS
  4067. '
  4068. 20150 FILESYS.PARAMETER = 1
  4069.       GOTO 20200
  4070. '
  4071. ' * GO TO THE FILE SYSTEM TO LIST THE FILE DIRECTORIES
  4072. '
  4073. 20155 FILESYS.PARAMETER = 2
  4074.       GOTO 20200
  4075. '
  4076. ' * GO TO THE FILE SYSTEM TO DOWNLOAD FILES
  4077. '
  4078. 20160 FILESYS.PARAMETER = 3
  4079.       GOTO 20200
  4080. '
  4081. ' * GO TO THE FILE SYSTEM WHEN RETURNING FROM EXTERNAL PROTOCOLS
  4082. '
  4083. 20165 FILESYS.PARAMETER = 4
  4084.       GOTO 20200
  4085. '
  4086. ' * GO TO THE FILE SYSTEM TO UPLOAD FILES
  4087. '
  4088. 20170 FILESYS.PARAMETER = 5
  4089.       GOTO 20200
  4090. '
  4091. ' * GO TO THE FILE SYSTEM TO SCAN FILE SYSTEM DIRECTORIES
  4092. '
  4093. 20175 FILESYS.PARAMETER = 6
  4094.       GOTO 20200
  4095. '
  4096. ' * GO TO THE FILE SYSTEM TO HANDLE "PERSONAL" FILES
  4097. '
  4098. 20180 FILESYS.PARAMETER = 7
  4099.       GOTO 20200
  4100. '
  4101. ' * GO TO THE FILE SYSTEM TO LIST "NEW" FILES
  4102. '
  4103. 20185 FILESYS.PARAMETER = 8
  4104.       GOTO 20200
  4105. '
  4106. ' * RETURN TO THE FILE SYSTEM AFTER HANDLING EXTENDED FILE DESCRIPTIONS
  4107. '
  4108. 20190 FILESYS.PARAMETER = 9
  4109. 20200 CALL FILESYS
  4110.       ON FILESYS.PARAMETER GOTO 20205, _
  4111.                                 20210, _
  4112.                                 20215, _
  4113.                                 20220, _
  4114.                                 20225, _
  4115.                                 20230, _
  4116.                                 20235
  4117. 20205 RETURN
  4118. 20210 RETURN 202
  4119. 20215 RETURN 1200
  4120. 20220 RETURN 1380
  4121. 20225 SYSOP.COMMENT = TRUE
  4122.       MAX.MESSAGE.LINES = MAX.EXTENDED.LINES
  4123.       GOSUB 2008
  4124.       GOTO 20190
  4125. 20230 RETURN 10553
  4126. 20235 RETURN 10595
  4127. '
  4128. ' *  GET MESSAGE HEADER RECORD DATA
  4129. '
  4130. 23000 GET 1,1
  4131.       HIGH.MESSAGE.NUMBER = VAL(LEFT$(MESSAGE.RECORD$,8))
  4132.       AUTO.ADD.SECURITY   = CVI(MID$(MESSAGE.RECORD$,9,2))
  4133.       CALLS.TODATE! = VAL(MID$(MESSAGE.RECORD$,11,10))
  4134.       CURRENT.USER.COUNT = VAL(MID$(MESSAGE.RECORD$,57,5))
  4135.       'HIGHEST.USER.RECORD = VAL(MID$(MESSAGE.RECORD$,62,5))
  4136.       FIRST.MESSAGE.RECORD = VAL(MID$(MESSAGE.RECORD$,68,7))
  4137.       NEXT.MESSAGE.RECORD = VAL(MID$(MESSAGE.RECORD$,75,7))
  4138.       HIGHEST.MESSAGE.RECORD = VAL(MID$(MESSAGE.RECORD$,82,7))
  4139.       IF ACTIVE.MESSAGE.FILE$ = ORIG.MESSAGE.FILE$ THEN _
  4140.          NODES.IN.SYSTEM = VAL(MID$(MESSAGE.RECORD$,127))
  4141.       RETURN
  4142. '
  4143. ' *  UPDATE MESSAGE HEADER RECORD DATA                                        *
  4144. '
  4145. 24000 MID$(MESSAGE.RECORD$,1,8) = STR$(HIGH.MESSAGE.NUMBER)
  4146.       MID$(MESSAGE.RECORD$,11,10) = STR$(CALLS.TODATE!)
  4147.       MID$(MESSAGE.RECORD$,57,5) = STR$(CURRENT.USER.COUNT)
  4148. '     MID$(MESSAGE.RECORD$,62,5) = STR$(HIGHEST.USER.RECORD)
  4149.       MID$(MESSAGE.RECORD$,68,7) = STR$(FIRST.MESSAGE.RECORD)
  4150.       MID$(MESSAGE.RECORD$,75,7) = STR$(NEXT.MESSAGE.RECORD)
  4151.       MID$(MESSAGE.RECORD$,82,7) = STR$(HIGHEST.MESSAGE.RECORD)
  4152.       PUT 1,1
  4153.       RETURN
  4154. '
  4155. ' * A - COMMAND FROM LIBRARY MENU (ARCHIVE A SELECTED LIBRARY DISK)           *
  4156. '
  4157. 30000 SUBROUTINE.PARAMETER = 4
  4158.       CALL LIBRARY
  4159.       IF SUBROUTINE.PARAMETER = -1 THEN _
  4160.          RETURN 10595
  4161.       RETURN
  4162. '
  4163. ' * C - COMMAND FROM LIBRARY MENU (CHANGE TO A LIBRARY DISK)                  *
  4164. '
  4165. 30100 SUBROUTINE.PARAMETER = 2
  4166.       CALL LIBRARY
  4167.       RETURN
  4168. '
  4169. ' * D - COMMAND FROM LIBRARY MENU (DOWNLOAD F DISK/FILE FROM LIBRARY)         *
  4170. '
  4171. 30200 IF TIME.LOCK AND 2 THEN _
  4172.          CALL TIMELOCK : _
  4173.          IF NOT OK THEN _
  4174.             RETURN
  4175.       IF LIBRARY.DISK.CHAR$ = "0000" THEN _
  4176.          CALL QTPUT ("You must select a Library disk first!",1) : _
  4177.          RETURN
  4178.       SUBROUTINE.PARAMETER = 3
  4179.       CALL LIBRARY
  4180.       GOTO 20160
  4181. '
  4182. ' * CALCULATE TIME REMAINING FOR USER                                         *
  4183. '
  4184. 41000 CALL CHKTREMAIN (TIME.REMAINING!)
  4185.       IF SUBROUTINE.PARAMETER = -1 THEN _
  4186.          RETURN 10553
  4187.       RETURN
  4188. '
  4189. ' * SHOW USER CURRENT ACCESS LEVEL                                            *
  4190. '
  4191. 41070 A$ = "Granted access level" + _
  4192.            STR$(USER.SECURITY.LEVEL) + _
  4193.            MID$(" (SYSOP)",1,-8 * (USER.SECURITY.LEVEL >= SYSOP.SECURITY.LEVEL))
  4194.       GOSUB 12975
  4195.       RETURN
  4196. '
  4197. ' * NULLS SET FOR NEW USERS                                                   *
  4198. '
  4199. 42700 CALL SKIPLINE (1)
  4200.       CALL QTPUT ("TurboKey: act on 1 character command without waiting for [ENTER]",1)
  4201.       A$ = "Want TurboKeys (Y/[N])"
  4202.       GOSUB 12999
  4203.       TURBO.KEY.USER = NOT YES
  4204.       CALL TOGGLE (8)
  4205.       RETURN
  4206. '
  4207. ' *  F - COMMAND FROM UTILITY MENU (FILE TRANSFER DEFALUT MODE)               *
  4208. ' *  FILE TRANSFER DEFAULT SET FOR NEW USERS                                  *
  4209. '
  4210. 42800 FF = INSTR(DFLTXFER$,USER.TRANSFER.DEFAULT$)
  4211.       IF FF = 0 THEN _
  4212.          FF = INSTR(INTERNAL.EQUIV$,"N")
  4213.       CALL QTPUT ("Current Protocol: "+MID$(DFLTXFER$,FF,1),1)
  4214. 42805 A$ = "Default "
  4215.       CALL XFERTYPE (1,EXPERT.USER)
  4216.       IF SUBROUTINE.PARAMETER = -1 THEN _
  4217.          RETURN 10595
  4218.       USER.TRANSFER.DEFAULT$ = FT$
  4219. 42810 A$ = "PROTOCOL: " + PROTO.PROMPT$
  4220.       GOSUB 12979
  4221.       RETURN
  4222. '
  4223. ' *  C - COMMAND FROM UTILITY MENU (CHANGE CASE TOGGLE)                       *
  4224. ' *  UPPER/LOWER CASE SET FOR NEW USERS                                       *
  4225. '
  4226. 42850 IF Q > 1 THEN _
  4227.          X = 2 : _
  4228.          GOTO 42852
  4229.       GOSUB 9525
  4230. 42851 X = 1
  4231.       A$ = "Change to R)BBS, C)aller's software" + _
  4232.            MID$(", I)ntermediate host",1,-20 * (HOST.ECHO.ON$ <> "")) + _
  4233.            PRESS.ENTER.EXPERT$
  4234.       GOSUB 12999
  4235.       IF Q = 0 THEN _
  4236.          RETURN
  4237. 42852 Z$ = LEFT$(B$(X),1)
  4238.       CALL ALLCAPS (Z$)
  4239.       IF INSTR("ICR",Z$) = 0 THEN _
  4240.          GOTO 42851
  4241.       ECHOER$ = Z$
  4242.       CALL SETECHO (ECHOER$)
  4243.       GOSUB 9525
  4244.       RETURN
  4245. 42950 A$ = "CAN YOUR TERMINAL DISPLAY LOWER CASE ([Y]/N)"
  4246.       GOSUB 12995
  4247.       UPPER.CASE = NOT NO
  4248.       CALL TOGGLE(3)
  4249.       RETURN
  4250. '
  4251. ' *  G - COMMAND FROM UTILITY MENU (GRAPHICS WANTED)                          *
  4252. ' *  GRAPHIC MENUS SELECTION SET FOR NEW USERS                                *
  4253. '
  4254. 43000 GOSUB 43005
  4255.       GOTO 43022
  4256. 43005 CALL ASKGRAPH (USER.GRAPHIC.DEFAULT$)
  4257.       IF SUBROUTINE.PARAMETER = -1 THEN _
  4258.          RETURN 10595
  4259.       IF Q = 0 THEN _
  4260.          RETURN
  4261. 43020 A$ = "Text GRAPHICS: " + _
  4262.            MID$("None AsciiColor",GR * 5 + 1,5)
  4263.       GOSUB 12979
  4264.       RETURN
  4265. 43022 IF EMPHASIZE.ON.DEF$ = "" THEN _
  4266.          RETURN
  4267.       A$ = "Do you want COLORIZED prompts ([Y],N)"
  4268.       GOSUB 12999
  4269.       HIGHLIGHT.OFF = NOT NO
  4270.       CALL TOGGLE(5)
  4271.       RETURN
  4272. 43025 CALL GRAPHIC (USER.GRAPHIC.DEFAULT$)
  4273. '
  4274. ' *  DISPLAY NON-BREAKABLE TEXT FILES                                         *
  4275. '
  4276. 43027 STOP.INTERRUPTS = TRUE
  4277.       CALL BUFFILE (FILE.NAME$,X)
  4278.       CALL CARRIER
  4279.       IF SUBROUTINE.PARAMETER = -1 THEN _
  4280.          RETURN 10595
  4281.       STOP.INTERRUPTS = FALSE
  4282.       RETURN
  4283. '
  4284. ' * MAKE INPUT STRING HIDDEN (USE *'S TO ECHO INPUT)                          *
  4285. '
  4286. 45010 HIDDEN = TRUE
  4287.       GOSUB 12995
  4288.       HIDDEN = FALSE
  4289.       RETURN
  4290.